(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    333607,       6498]
NotebookOptionsPosition[    325333,       6249]
NotebookOutlinePosition[    325741,       6266]
CellTagsIndexPosition[    325698,       6263]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Dynamics of autoassociative memory network", "Title",
 CellChangeTimes->{{3.5026295381724706`*^9, 3.502629557921459*^9}, 
   3.502950595966797*^9}],

Cell["PJ, 31.12 .2010 ", "Text",
 CellChangeTimes->{{3.50262955985886*^9, 3.5026295719051185`*^9}, {
  3.502790342372487*^9, 3.5027903431519732`*^9}}],

Cell["\<\
Paper1: Bennett MR, Gibson WG, Robinson J (1994) Dynamics of the CA3 \
pyramidal neuron autoassociative memory network in the hippocampus. Philos \
Trans R Soc Lond B Biol Sci. 343 :167 - 187.

Paper2: See earlier paper Gibson and Robinson (1992) Neural Networks 5, \
645-661. More details are found in this paper. 
Paper3: See also later paper Thomas et al. (1996) Neural Networks 9, 53-66. A \
more digestible summary can be found there. 

The definition of Phi is not given in this paper, but in Gibson and Robinson \
(1992), p. 650, right column, and also in the nomenclature section at the \
very end of the paper. 
The initial conditions at t = 0 also are not adequately described in this \
paper. From there, it is unclear how x\.b4 and y\.b4have been set at t = 0. \
However, this is again stated in the Gibson and Roberson (1992), p. 653, left \
column. 

Note: There is one discrepancy between the equations for the expectations. In \
paper 1, En(t) in eq. 20 contains xt, whereas in paper 2 the corresponding eq \
8 states xt\.b4. Likewise, paper 3 p. 652, right, states xt'. 

Synaptic noise incorporated as shown in appendix 1. \[Micro]N is set to 1 \
without loss of generality. 
\
\>", "Text",
 CellChangeTimes->{{3.502629638855792*^9, 3.5026296406213264`*^9}, {
  3.502629674135236*^9, 3.502629695602886*^9}, {3.5027860578157225`*^9, 
  3.502786111158012*^9}, {3.5027898551301374`*^9, 3.5027899739428453`*^9}, {
  3.5027900967826395`*^9, 3.502790239374099*^9}, {3.5027903157673855`*^9, 
  3.502790347874801*^9}, {3.5027925557987685`*^9, 3.502792604218521*^9}, {
  3.5027951185095615`*^9, 3.502795367721279*^9}, {3.502806157447144*^9, 
  3.502806183366108*^9}, {3.502806285487217*^9, 3.502806302757411*^9}}],

Cell["\<\
updating process is given by a set of four coupled differential equations (p. \
172, eq 15 - 18)\
\>", "Text",
 CellChangeTimes->{{3.5026313086006165`*^9, 3.5026313502417746`*^9}}],

Cell[TextData[{
 "File : PatternCompletionAnalytical.nb\nfor ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 8.0\nRevision PJ\n01.11.2011\nDebugging: \nOutside the retrieval region \
valid and spurious firing rate go to 0, resulting in underflow problems. "
}], "Text",
 CellChangeTimes->{{3.5026297036805973`*^9, 3.502629712039545*^9}, {
  3.5026297543655024`*^9, 3.502629766286767*^9}, {3.502790352794943*^9, 
  3.5027903528408527`*^9}, {3.502792613331219*^9, 3.502792624695726*^9}, {
  3.5028020042059083`*^9, 3.5028020046180334`*^9}, {3.502806152933299*^9, 
  3.502806154335696*^9}, {3.5291575691523514`*^9, 3.5291575923026657`*^9}, {
  3.5292032895889378`*^9, 3.529203354196398*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Analytical formula ", "Title",
 CellChangeTimes->{{3.5026295381724706`*^9, 3.502629557921459*^9}, {
  3.502950595966797*^9, 3.5029506140097656`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5029773938359375`*^9, 3.5029773944921875`*^9}}],

Cell[CellGroupData[{

Cell["Initialize parameters according to legend Fig. 2", "Subtitle",
 CellChangeTimes->{{3.502630077505207*^9, 3.50263008584853*^9}, {
  3.5030454831267853`*^9, 3.503045486766574*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InitStandardParameters", " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x0", " ", "=", " ", "0.5"}], ";", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "average", " ", "valid", " ", "firing", " ", "rate", " ", "xt", " ", 
         "at", " ", "t"}], " ", "=", " ", "0"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"y0", " ", "=", " ", "0.001"}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "average", " ", "spurious", " ", "firing", " ", "rate", " ", "yt", 
         " ", "at", " ", "t"}], " ", "=", " ", "0"}], " ", "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"n", " ", "=", " ", "330000"}], ";", 
      RowBox[{"(*", " ", 
       RowBox[{"number", " ", "of", " ", "pyramdial", " ", "neuzrons"}], " ", 
       "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{"cBar", " ", "=", " ", "0.05"}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"mean", " ", "connectivity"}], " ", "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"c2Bar", " ", "=", " ", "0.021"}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "mean", " ", "squared", " ", "connection", " ", "probability"}], " ", 
       "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{"a", " ", "=", " ", "0.001"}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"activity", ",", " ", 
        RowBox[{
         RowBox[{"i", ".", "e", ".", " ", "probability"}], " ", "that", " ", 
         "a", " ", "radomly", " ", "chosen", " ", "neuron", " ", "in", " ", 
         "a", " ", "memory", " ", "pattern", " ", "is", " ", "active"}]}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"m", " ", "=", " ", "200000"}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "number", " ", "of", " ", "memories", " ", "stored", " ", "in", " ", 
        "the", " ", "network"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"g0", " ", "=", " ", 
       RowBox[{"7", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ";", 
      RowBox[{"(*", " ", 
       RowBox[{"threshold", " ", "parameter"}], " ", "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"g1", " ", "=", " ", "0.024"}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"strength", " ", "of", " ", "inhibition"}], " ", "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Sigma]N", " ", "=", " ", "0.0"}], ";"}]}], " ", 
    RowBox[{"(*", " ", 
     RowBox[{"no", " ", "synaptic", " ", "noise"}], " ", "*)"}], " ", 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5026297979570203`*^9, 3.5026298212527027`*^9}, {
  3.5026304197376833`*^9, 3.502630453345338*^9}, {3.502631581974559*^9, 
  3.502631583755763*^9}, {3.502636733890129*^9, 3.5026367355462837`*^9}, {
  3.5028073069419994`*^9, 3.502807451740728*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "[", "x_", "]"}], ":=", " ", 
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"0", ",", " ", "1"}], "]"}], ",", " ", "x"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "x", " ", "is", " ", "normalized", " ", "expectation", " ", "value"}], 
    ",", " ", 
    RowBox[{
    "so", " ", "phi", " ", "gives", " ", "the", " ", "area", " ", "under", 
     " ", "the", " ", "curve", " ", "from", " ", "0", " ", "to", " ", "the", 
     " ", 
     RowBox[{"right", ".", " ", 
      RowBox[{"Note", ":", " ", 
       RowBox[{
       "The", " ", "Gibson", " ", "papers", " ", "use", " ", "the", " ", 
        "distribution"}]}]}]}], ",", " ", 
    RowBox[{"not", " ", "the", " ", "density", " ", 
     RowBox[{"(", 
      RowBox[{"see", " ", "appendix"}], ")"}]}]}], " ", "*)"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.5026326481772766`*^9, 3.5026326668326902`*^9}, {
  3.502639917177323*^9, 3.502639928098708*^9}, {3.502686734137106*^9, 
  3.5026867471413345`*^9}, {3.5026868083111043`*^9, 3.502686874708855*^9}, {
  3.5026869191755333`*^9, 3.5026869228602724`*^9}, {3.5027953883070307`*^9, 
  3.502795422691163*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cut", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"x", " ", ">", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "12"}]]}], ",", " ", "x", ",", " ", "0"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5292030279887805`*^9, 3.529203074031384*^9}, {
  3.5292031083478155`*^9, 3.529203110911072*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"update", "[", 
     RowBox[{"{", 
      RowBox[{"x_", ",", " ", "y_", ",", " ", "x\.b4_", ",", " ", "y\.b4_"}], 
      "}"}], "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Rho]", " ", "=", " ", 
        RowBox[{"1", " ", "-", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", " ", 
            SuperscriptBox["a", "2"]}], ")"}], "m"]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Gamma]", " ", "=", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", " ", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "2"]}], " ", "+", " ", 
            SuperscriptBox["a", "3"]}], ")"}], "m"], " ", "-", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", 
            SuperscriptBox["a", "2"]}], ")"}], 
          RowBox[{"2", " ", "m"}]]}]}], ";", " ", "\[IndentingNewLine]", 
       RowBox[{"\[Rho]\.b4", " ", "=", " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[Rho]", "2"], "+", " ", "\[Gamma]"}], "\[Rho]"]}], 
       " ", ";", " ", "\[IndentingNewLine]", 
       RowBox[{"\[Gamma]\.b4", " ", "=", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", 
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["a", "2"]}], ")"}], "m"]}], "+", " ", 
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", " ", 
                RowBox[{"2", " ", 
                 SuperscriptBox["a", "2"]}], " ", "+", " ", 
                SuperscriptBox["a", "3"]}], ")"}], "m"]}], " ", "-", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", " ", "-", " ", 
               RowBox[{"3", " ", 
                SuperscriptBox["a", "2"]}], "+", " ", 
               RowBox[{"3", " ", 
                SuperscriptBox["a", "3"]}], "-", " ", 
               SuperscriptBox["a", "4"]}], ")"}], "m"]}], ")"}], " ", "/", 
          " ", "\[Rho]"}], " ", "-", " ", 
         SuperscriptBox["\[Rho]\.b4", "2"]}]}], ";", " ", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"E1", " ", "=", " ", 
        RowBox[{
         RowBox[{"cBar", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "\[Rho]", " ", "y\.b4"}]}],
            ")"}]}], " ", "-", " ", 
         RowBox[{"g1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "y"}]}], ")"}]}], " ", "-",
          " ", "g0"}]}], ";", 
       RowBox[{"En", " ", "=", " ", 
        RowBox[{
         RowBox[{"cBar", " ", "\[Rho]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x\.b4"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "y\.b4"}]}], ")"}]}], " ", 
         "-", " ", 
         RowBox[{"g1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "y"}]}], ")"}]}], " ", "-",
          " ", "g0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"E1\.b4", "=", " ", 
        RowBox[{
         RowBox[{"cBar", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "\[Rho]\.b4", " ", 
             "y\.b4"}]}], ")"}]}], " ", "-", " ", 
         RowBox[{"g1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "y"}]}], ")"}]}], " ", "-",
          " ", "g0"}]}], ";", 
       RowBox[{"En\.b4", " ", "=", " ", 
        RowBox[{
         RowBox[{"cBar", " ", "\[Rho]\.b4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x\.b4"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "y\.b4"}]}], ")"}]}], " ", 
         "-", " ", 
         RowBox[{"g1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}], " ", "y"}]}], ")"}]}], " ", "-",
          " ", "g0"}]}], ";", "  ", 
       RowBox[{"(*", " ", 
        RowBox[{"x", " ", "or", " ", 
         RowBox[{
          RowBox[{"x\.b4", " ", "?", " ", "That"}], "'"}], "s", " ", "the", 
         " ", "question"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"rhs", " ", "=", " ", 
        RowBox[{
         RowBox[{"n", " ", 
          SuperscriptBox["\[Sigma]N", "2"], "cBar", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Rho]", " ", 
             "y\.b4"}]}], ")"}]}], "    ", "+", "    ", 
         RowBox[{"n", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", "c2Bar"}], ")"}], " ", "x"}], " ", 
         "+", " ", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Rho]", " ", 
          "y\.b4", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", 
            RowBox[{"c2Bar", " ", "\[Rho]", " ", 
             FractionBox["y\.b4", "y"]}]}], ")"}]}], " ", "+", " ", 
         RowBox[{
          SuperscriptBox["n", "2"], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "a"}], ")"}], "2"], " ", 
          SuperscriptBox["cBar", "2"], "\[Gamma]", " ", 
          SuperscriptBox["y\.b4", "2"]}]}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
        "first", " ", "summand", " ", "is", " ", "synaptic", " ", "noise", 
         " ", "in", " ", "all", " ", "rhs", " ", "terms"}], " ", "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Sigma]1", " ", "=", " ", 
        RowBox[{
         SqrtBox["rhs"], "/", " ", "n"}]}], ";", " ", 
       RowBox[{"rhs", " ", "=", " ", 
        RowBox[{
         RowBox[{"n", " ", 
          SuperscriptBox["\[Sigma]N", "2"], "cBar", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "y\.b4"}]}], 
           ")"}]}], "    ", "+", "    ", 
         RowBox[{"n", " ", "a", " ", "\[Rho]", " ", "x\.b4", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", 
            RowBox[{"c2Bar", " ", "\[Rho]", " ", 
             FractionBox["x\.b4", "x"]}]}], ")"}]}], " ", "+", " ", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Rho]", " ", 
          "y\.b4", " ", "\[Times]", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", 
            RowBox[{"c2Bar", " ", "\[Rho]", " ", 
             FractionBox["y\.b4", "y"]}]}], ")"}]}], " ", "+", " ", 
         RowBox[{
          SuperscriptBox["n", "2"], " ", "\[Gamma]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", "x\.b4"}], " ", "+", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "a"}], ")"}], " ", "y\.b4"}]}], ")"}], "2"], 
          " ", 
          SuperscriptBox["cBar", "2"]}]}]}], ";", " ", "\[IndentingNewLine]", 
       RowBox[{"\[Sigma]n", " ", "=", " ", 
        RowBox[{
         SqrtBox["rhs"], "/", " ", "n"}]}], ";", " ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"rhs", " ", "=", " ", 
        RowBox[{
         RowBox[{"n", " ", 
          SuperscriptBox["\[Sigma]N", "2"], "cBar", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Rho]\.b4", 
             " ", "y\.b4"}]}], ")"}]}], "    ", "+", "   ", 
         RowBox[{"n", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", "c2Bar"}], ")"}], " ", "x"}], " ", 
         "+", " ", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Rho]\.b4", " ", 
          "y\.b4", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", 
            RowBox[{"c2Bar", " ", "\[Rho]\.b4", " ", 
             FractionBox["y\.b4", "y"]}]}], ")"}]}], " ", "+", " ", 
         RowBox[{
          SuperscriptBox["n", "2"], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "a"}], ")"}], "2"], " ", 
          SuperscriptBox["cBar", "2"], "\[Gamma]\.b4", " ", 
          SuperscriptBox["y\.b4", "2"]}]}]}], ";", " ", "\[IndentingNewLine]", 
       RowBox[{"\[Sigma]1\.b4", " ", "=", " ", 
        RowBox[{
         SqrtBox["rhs"], "/", " ", "n"}]}], ";", " ", 
       RowBox[{"rhs", " ", "=", "  ", 
        RowBox[{
         RowBox[{"n", " ", 
          SuperscriptBox["\[Sigma]N", "2"], "cBar", " ", "\[Rho]\.b4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", "x"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "y\.b4"}]}], 
           ")"}]}], "    ", "+", "    ", 
         RowBox[{"n", " ", "a", " ", "\[Rho]\.b4", " ", "x\.b4", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", 
            RowBox[{"c2Bar", " ", "\[Rho]\.b4", " ", 
             FractionBox["x\.b4", "x"]}]}], ")"}]}], " ", "+", " ", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Rho]\.b4", " ", 
          "y\.b4", " ", "\[Times]", " ", 
          RowBox[{"(", 
           RowBox[{"cBar", " ", "-", " ", 
            RowBox[{"c2Bar", " ", "\[Rho]\.b4", " ", 
             FractionBox["y\.b4", "y"]}]}], ")"}]}], " ", "+", " ", 
         RowBox[{
          SuperscriptBox["n", "2"], " ", "\[Gamma]\.b4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", "x\.b4"}], " ", "+", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "a"}], ")"}], " ", "y\.b4"}]}], ")"}], "2"], 
          " ", 
          SuperscriptBox["cBar", "2"]}]}]}], ";", " ", "\[IndentingNewLine]", 
       RowBox[{"\[Sigma]n\.b4", " ", "=", " ", 
        RowBox[{
         SqrtBox["rhs"], "/", " ", "n"}]}], ";", " ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"xtPlus1", " ", "=", " ", 
        RowBox[{"\[Phi]", "[", 
         RowBox[{"E1", "/", " ", "\[Sigma]1"}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"eq", ".", " ", "15"}], " ", "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"ytPlus1", " ", "=", " ", 
        RowBox[{"\[Phi]", "[", 
         RowBox[{"En", "/", " ", "\[Sigma]n"}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"eq", ".", " ", "16"}], " ", "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"xtPlus1\.b4", " ", "=", " ", 
        RowBox[{"\[Phi]", "[", 
         RowBox[{"E1\.b4", "/", " ", "\[Sigma]1\.b4"}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"eq", ".", " ", "17"}], " ", "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"ytPlus1\.b4", " ", "=", " ", 
        RowBox[{"\[Phi]", "[", 
         RowBox[{"En\.b4", "/", " ", "\[Sigma]n\.b4"}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{"eq", ".", " ", "18"}], " ", "*)"}], " ", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "xtPlus1", ",", " ", "ytPlus1", " ", ",", " ", "xtPlus1\.b4", ",", 
         " ", "ytPlus1\.b4"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], 
   ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"update", "::", "usage"}], " ", "=", " ", 
   "\"\<This function calculates the progressive recall equations of Bennett \
et al., 1994. Syntax: update[x_, y_, x\.b4_, y\.b4_]. Returns {x, y, x\.b4, y\
\.b4} for t = t + 1. \>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.502634081427517*^9, 3.5026341321127462`*^9}, {
   3.502634519418643*^9, 3.5026345918841467`*^9}, {3.5026346344134912`*^9, 
   3.502634886744626*^9}, {3.502635856130972*^9, 3.5026358592089*^9}, {
   3.502635920314364*^9, 3.502635988841228*^9}, {3.502636022370332*^9, 
   3.502636101912116*^9}, {3.50263616668922*^9, 3.502636312882988*^9}, {
   3.5026363587862997`*^9, 3.5026365844290123`*^9}, {3.5026366146938705`*^9, 
   3.5026366593319244`*^9}, {3.5026367750283847`*^9, 3.5026368212913446`*^9}, 
   3.50263686555442*^9, {3.5026371067280273`*^9, 3.502637124070779*^9}, {
   3.5026372696336913`*^9, 3.5026372708367467`*^9}, {3.5026373304426885`*^9, 
   3.5026373478323116`*^9}, {3.502637389658027*^9, 3.5026375746171*^9}, {
   3.502637693391508*^9, 3.502637814884509*^9}, {3.5026383150119505`*^9, 
   3.502638318730486*^9}, {3.5026385222666135`*^9, 3.502638528953728*^9}, {
   3.5026390645523634`*^9, 3.5026390676305275`*^9}, {3.5027914532704625`*^9, 
   3.502791533857541*^9}, {3.5027916052850885`*^9, 3.502791619402818*^9}, {
   3.502791675467471*^9, 3.5027917355449734`*^9}, {3.502791789237465*^9, 
   3.5027917937806077`*^9}, {3.502791894601862*^9, 3.502791935411046*^9}, {
   3.502793559163997*^9, 3.50279367436471*^9}, {3.502793707483169*^9, 
   3.5027937809537635`*^9}, {3.5027941497130404`*^9, 
   3.5027941871802998`*^9}, {3.5027951061213903`*^9, 
   3.5027951112895575`*^9}, {3.5027966753255315`*^9, 
   3.5027966992326856`*^9}, {3.5027967653816557`*^9, 
   3.5027967819089184`*^9}, {3.5028063479251614`*^9, 
   3.5028063563922834`*^9}, {3.502806394697465*^9, 3.5028064929453783`*^9}, {
   3.5028065277592154`*^9, 3.502806559068034*^9}, {3.5028066058745193`*^9, 
   3.5028066272386208`*^9}, {3.5028067273711047`*^9, 3.502806832122445*^9}, {
   3.529203121389119*^9, 3.5292031247594566`*^9}, 3.529203273000279*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"analyze", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"nValid", " ", "=", " ", 
       RowBox[{"Round", "[", 
        RowBox[{"(", 
         RowBox[{"n", " ", "a", " ", 
          RowBox[{"First", "[", "x", "]"}]}], ")"}], "]"}]}], ";", "  ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"valid", " ", "firings"}], "  ", "-", " ", 
         RowBox[{
         "n", " ", "\[Times]", " ", "a", " ", "\[Times]", " ", "x"}]}], ";", 
        " ", 
        RowBox[{"p", ".", " ", "169"}]}], " ", "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"nSpurious", " ", "=", " ", 
       RowBox[{"Round", "[", 
        RowBox[{"(", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "]"}]}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"spurious", " ", "firings"}], " ", "-", " ", 
        RowBox[{"n", " ", "\[Times]", " ", 
         RowBox[{"(", 
          RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Times]", " ", 
         "y"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{"s", " ", "=", " ", 
       RowBox[{"nValid", " ", "+", " ", "nSpurious"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"r0", " ", "=", " ", 
       FractionBox[
        RowBox[{"nValid", " ", "-", " ", 
         RowBox[{"a", " ", "s"}]}], 
        RowBox[{
         SqrtBox[
          RowBox[{"s", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"s", "/", "n"}]}], ")"}]}]], 
         SqrtBox[
          RowBox[{"n", " ", "a", " ", 
           RowBox[{"(", 
            RowBox[{"1", " ", "-", " ", "a"}], ")"}]}]]}]]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"nValid", ",", " ", "nSpurious", ",", " ", "r0"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";", 
  RowBox[{
   RowBox[{"analyze", "::", "usage"}], " ", "=", " ", 
   "\"\<Analyzes the result table produced by update. Syntax: analyze[x_]. \
Returns {nValid, nSpurious, r0}\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.5027919617763166`*^9, 3.502792140113242*^9}, {
   3.5027921786078844`*^9, 3.5027921795561633`*^9}, {3.502792264212734*^9, 
   3.502792268432623*^9}, {3.5027922989054728`*^9, 3.5027923103121605`*^9}, {
   3.5027924766759033`*^9, 3.502792478394543*^9}, 3.502795454108385*^9, {
   3.5027956361974087`*^9, 3.502795678172653*^9}, {3.529230674270034*^9, 
   3.5292306921634626`*^9}, {3.5292307255322905`*^9, 3.5292307296663437`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"analyze", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"nValid", " ", "=", " ", 
       RowBox[{"Round", "[", 
        RowBox[{"(", 
         RowBox[{"n", " ", "a", " ", 
          RowBox[{"First", "[", "x", "]"}]}], ")"}], "]"}]}], ";", "  ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"valid", " ", "firings"}], "  ", "-", " ", 
         RowBox[{
         "n", " ", "\[Times]", " ", "a", " ", "\[Times]", " ", "x"}]}], ";", 
        " ", 
        RowBox[{"p", ".", " ", "169"}]}], " ", "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"nSpurious", " ", "=", " ", 
       RowBox[{"Round", "[", 
        RowBox[{"(", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "]"}]}], ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"spurious", " ", "firings"}], " ", "-", " ", 
        RowBox[{"n", " ", "\[Times]", " ", 
         RowBox[{"(", 
          RowBox[{"1", " ", "-", " ", "a"}], ")"}], " ", "\[Times]", " ", 
         "y"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{"s", " ", "=", " ", 
       RowBox[{"nValid", " ", "+", " ", "nSpurious"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"r0", " ", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"s", " ", ">", " ", "0"}], ",", "  ", 
         FractionBox[
          RowBox[{"nValid", " ", "-", " ", 
           RowBox[{"a", " ", "s"}]}], 
          RowBox[{
           SqrtBox[
            RowBox[{"s", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"s", "/", "n"}]}], ")"}]}]], 
           SqrtBox[
            RowBox[{"n", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{"1", " ", "-", " ", "a"}], ")"}]}]]}]], ",", " ", "0"}],
         "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"nValid", ",", " ", "nSpurious", ",", " ", "r0"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";", 
  RowBox[{
   RowBox[{"analyze", "::", "usage"}], " ", "=", " ", 
   "\"\<Analyzes the result table produced by update. Syntax: analyze[x_]. \
Returns {nValid, nSpurious, r0}\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.5027919617763166`*^9, 3.502792140113242*^9}, {
   3.5027921786078844`*^9, 3.5027921795561633`*^9}, {3.502792264212734*^9, 
   3.502792268432623*^9}, {3.5027922989054728`*^9, 3.5027923103121605`*^9}, {
   3.5027924766759033`*^9, 3.502792478394543*^9}, 3.502795454108385*^9, {
   3.5027956361974087`*^9, 3.502795678172653*^9}, {3.529230674270034*^9, 
   3.5292306921634626`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Simulate Fig. 2 and Table 1", "Subtitle",
 CellChangeTimes->{{3.502630077505207*^9, 3.5026301077224092`*^9}, {
   3.502631477742852*^9, 3.502631477742852*^9}, 3.502631593443015*^9, {
   3.502795838051839*^9, 3.5027958417131124`*^9}}],

Cell[BoxData["InitStandardParameters"], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"update", "[", 
   RowBox[{"{", 
    RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], "}"}], 
   "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"note", ":", " ", "x0\.b4"}], " ", "=", " ", "x0"}], ",", " ", 
    RowBox[{"y0\.b4", " ", "=", " ", 
     RowBox[{"y0", " ", "-", " ", 
      RowBox[{"see", " ", "Gibson", " ", "and", " ", "Robinson"}]}]}], ",", 
    " ", "1992"}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.502636753826481*^9, 3.502636762419736*^9}, {
  3.502638503330204*^9, 3.502638505783188*^9}, {3.502638866614334*^9, 
  3.5026388703180046`*^9}, {3.502687029983124*^9, 3.502687032168986*^9}, {
  3.50278872104745*^9, 3.5027887973745956`*^9}, {3.502788893254201*^9, 
  3.5027888998963547`*^9}, {3.502788946743942*^9, 3.5027889649664087`*^9}, {
  3.5027890009465275`*^9, 3.5027890018517427`*^9}, {3.5027898454383745`*^9, 
  3.502789846850394*^9}, {3.5027927073359447`*^9, 3.5027927451850843`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.14248445764181952`", ",", "1.1851493500138293`*^-6", ",", 
   "0.14364578859605245`", ",", "1.2907810283601374`*^-6"}], "}"}]], "Output",
 CellChangeTimes->{{3.5026385071268606`*^9, 3.502638539562492*^9}, {
   3.502639772668172*^9, 3.5026397749805684`*^9}, 3.5026399809711742`*^9, {
   3.502687019990612*^9, 3.502687033027717*^9}, 3.5027863750776434`*^9, 
   3.502788724511095*^9, {3.502788756732666*^9, 3.502788806708959*^9}, {
   3.502788891137149*^9, 3.502788903758412*^9}, {3.5027889541243286`*^9, 
   3.5027889653199015`*^9}, 3.502789002327298*^9, 3.502792199244419*^9, 
   3.502795466478977*^9, 3.5028068800918093`*^9, 3.503030942953125*^9, 
   3.5030371866713867`*^9, 3.50303829505917*^9, 3.503059846606598*^9, 
   3.5291575961050463`*^9, 3.529202628525838*^9, 3.5292061755525055`*^9, 
   3.5292298531183057`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"result", " ", "=", " ", 
  RowBox[{"FoldList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"update", "[", "#1", "]"}], "&"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], "}"}], 
    ",", " ", 
    RowBox[{"Table", "[", 
     RowBox[{"0", ",", " ", 
      RowBox[{"{", "8", "}"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5026388512058167`*^9, 3.502638884071005*^9}, {
   3.5026389149349227`*^9, 3.502638921967208*^9}, {3.5026389560190945`*^9, 
   3.5026389862745237`*^9}, {3.5026390275638037`*^9, 3.5026390280013685`*^9}, 
   3.502687055948042*^9, {3.50278646511192*^9, 3.5027864672309246`*^9}, {
   3.502787107918434*^9, 3.5027871094281025`*^9}, {3.5027883878933644`*^9, 
   3.502788388308419*^9}, {3.5027888323157187`*^9, 3.5027888632942047`*^9}, {
   3.502789009540704*^9, 3.502789035201171*^9}, {3.5027927735582685`*^9, 
   3.502792775083562*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.001`", ",", "0.5`", ",", "0.001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.14248445764181952`", ",", "1.1851493500138293`*^-6", ",", 
     "0.14364578859605245`", ",", "1.2907810283601374`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.1749453484405368`", ",", "9.660783400147993`*^-7", ",", 
     "0.17494996892092854`", ",", "1.0232965159292491`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.2649281497816002`", ",", "2.673964581967145`*^-6", ",", 
     "0.2649319427577659`", ",", "2.8242734432836477`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.487585244162346`", ",", "0.000012703037803691636`", ",", 
     "0.48759391593754037`", ",", "0.000013370882033913053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.7984163899107074`", ",", "0.00002622471065371282`", ",", 
     "0.7984340959665388`", ",", "0.000027674391079343615`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.9440296254701698`", ",", "0.000013714167413976941`", ",", 
     "0.94404002596203`", ",", "0.00001460563363243451`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.9713133291833269`", ",", "8.882800330654782`*^-6", ",", 
     "0.9713161779484292`", ",", "9.50104231218845`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.9749610786512772`", ",", "8.195157087698837`*^-6", ",", 
     "0.9749627012056364`", ",", "8.772130601771751`*^-6"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.502638922920473*^9, 3.50263895714426*^9, {3.502638987540335*^9, 
   3.502639028657715*^9}, 3.5026394200696316`*^9, {3.5026870453622246`*^9, 
   3.5026870571658792`*^9}, 3.5027863784846516`*^9, 3.5027864675424285`*^9, 
   3.5027871099808016`*^9, 3.5027883892039614`*^9, 3.5027888220087614`*^9, 
   3.5027888821201487`*^9, 3.502788973142643*^9, {3.5027890058710165`*^9, 
   3.502789035719692*^9}, 3.502792203842252*^9, 3.50279277612744*^9, 
   3.5027954743699055`*^9, 3.502806887795033*^9, 3.503030943*^9, 
   3.50303718673366*^9, 3.5030382951060266`*^9, 3.5030598466534624`*^9, 
   3.529157596122048*^9, 3.529202630614047*^9, 3.5292061755695066`*^9, 
   3.529229853149506*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"analyze", " ", "/@", " ", "result"}]], "Input",
 CellChangeTimes->{{3.502792215067292*^9, 3.5027922202374125`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"165", ",", "330", ",", "0.4075329745620187`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47", ",", "0", ",", "0.3772294864515943`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"58", ",", "0", ",", "0.41906167021255014`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"87", ",", "1", ",", "0.5103364725566448`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161", ",", "4", ",", "0.6897750446863056`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"263", ",", "9", ",", "0.8777306206717814`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"312", ",", "5", ",", "0.9646115626126106`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"321", ",", "3", ",", "0.9816745734821741`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"322", ",", "3", ",", "0.9832181288574734`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.502792221103657*^9, 3.502792277633171*^9, 
  3.5027923200976925`*^9, 3.502792495302641*^9, 3.50279278056075*^9, 
  3.50279548445916*^9, 3.5027956466323795`*^9, 3.5028068918107095`*^9, 
  3.50303094303125*^9, 3.503037186780365*^9, 3.5030382951528835`*^9, 
  3.503059846700327*^9, 3.5291575961360493`*^9, 3.529202634284414*^9, 
  3.5292061755865088`*^9, 3.5292298531651063`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Simulate Fig. 3", "Subtitle",
 CellChangeTimes->{{3.502630077505207*^9, 3.5026301077224092`*^9}, {
   3.502631477742852*^9, 3.502631477742852*^9}, 3.502631593443015*^9, {
   3.502795833640537*^9, 3.5027958346083474`*^9}}],

Cell[BoxData["InitStandardParameters"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulate", "[", "myPar_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"g1", " ", "=", " ", "myPar"}], ";", "\[IndentingNewLine]", 
     RowBox[{"result", " ", "=", " ", 
      RowBox[{"FoldList", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"update", "[", 
          RowBox[{"cut", " ", "/@", " ", "#1"}], "]"}], "&"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], 
         "}"}], ",", " ", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", " ", 
          RowBox[{"{", "8", "}"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"res", " ", "=", " ", 
      RowBox[{"Last", "[", 
       RowBox[{"Last", "[", 
        RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";", 
     " ", 
     RowBox[{"(*", " ", 
      RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
      "*)"}], " ", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"NumberQ", "[", "res", " ", "]"}], ",", " ", "res", ",", " ", 
       "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"old", " ", "version"}], " ", "-", " ", 
    RowBox[{"uses", " ", "8", " ", "iterations", " ", "throughout"}]}], " ", 
   "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.502795860343711*^9, 3.5027959838269677`*^9}, {
  3.5028069314205914`*^9, 3.502806940467582*^9}, {3.529205343976356*^9, 
  3.5292053668256407`*^9}, {3.529231470974248*^9, 3.5292314740630875`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"crit", " ", "=", " ", 
   SuperscriptBox["10", 
    RowBox[{"-", "5"}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.5292051551224723`*^9, 3.5292051826862288`*^9}, {
   3.5292057913390875`*^9, 3.52920579496445*^9}, 3.529206343702318*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulate", "[", "myPar_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"g1", " ", "=", " ", "myPar"}], ";", "\[IndentingNewLine]", 
     RowBox[{"vectPre", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"vect", " ", "=", " ", 
      RowBox[{"update", "[", 
       RowBox[{"{", 
        RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], "}"}],
        "]"}]}], ";", " ", 
     RowBox[{"(*", " ", 
      RowBox[{"first", " ", "iteration"}], " ", "*)"}], " ", 
     "\[IndentingNewLine]", 
     RowBox[{"i", " ", "=", " ", "1"}], ";", " ", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Plus", "@@", " ", 
             RowBox[{"Abs", "[", 
              RowBox[{"vect", " ", "-", " ", "vectPre"}], "]"}]}], ")"}], ">",
            " ", "crit"}], ")"}], " ", "&&", " ", 
         RowBox[{"(", 
          RowBox[{"i", " ", "\[LessEqual]", "  ", "10"}], ")"}]}], ")"}], ",",
        "  ", 
       RowBox[{"(*", " ", 
        RowBox[{"following", " ", "iterations"}], " ", "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", "}"}], ",", " ", 
         RowBox[{
          RowBox[{"vectPre", " ", "=", " ", "vect"}], ";", " ", 
          RowBox[{"vect", " ", "=", " ", 
           RowBox[{"update", "[", "vect", "]"}]}], ";", " ", 
          RowBox[{"i", " ", "=", " ", 
           RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}]}], "\[IndentingNewLine]",
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"result", " ", "=", " ", 
      RowBox[{"cut", "/@", " ", "vect"}]}], ";", " ", "\[IndentingNewLine]", 
     RowBox[{"res", " ", "=", " ", 
      RowBox[{"Last", "[", 
       RowBox[{"Last", "[", 
        RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";", 
     " ", 
     RowBox[{"(*", " ", 
      RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
      "*)"}], " ", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"NumberQ", "[", "res", " ", "]"}], ",", " ", "res", ",", " ", 
       "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"new", " ", "version"}], " ", "-", " ", 
    RowBox[{
    "limits", " ", "number", " ", "of", " ", "recall", " ", "iterations", " ",
      "according", " ", "to", " ", "convergence", " ", "criteria"}]}], " ", 
   "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.502795860343711*^9, 3.5027959838269677`*^9}, {
   3.5028069314205914`*^9, 3.502806940467582*^9}, {3.5292048842863913`*^9, 
   3.5292049281497774`*^9}, {3.529205006528614*^9, 3.529205151229083*^9}, {
   3.5292051916181216`*^9, 3.5292052452584853`*^9}, {3.5292053091178703`*^9, 
   3.529205331345093*^9}, 3.5292053728762455`*^9, {3.52920544122808*^9, 
   3.529205654128368*^9}, {3.529205684332388*^9, 3.5292057323221865`*^9}, {
   3.529205871832136*^9, 3.529205874729426*^9}, {3.5292059630852604`*^9, 
   3.529205963391291*^9}, {3.529206036379589*^9, 3.529206047426694*^9}, {
   3.5292296919848347`*^9, 3.5292297067424345`*^9}, 3.5292299899954605`*^9, {
   3.5292300243627014`*^9, 3.5292300306183815`*^9}, {3.5292300908985543`*^9, 
   3.529230095625415*^9}, {3.5292302374936333`*^9, 3.5292302386480484`*^9}, {
   3.5292303522955055`*^9, 3.5292303554155455`*^9}, {3.529231031561414*^9, 
   3.5292310418419456`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataX", " ", "=", " ", 
  RowBox[{"Range", "[", 
   RowBox[{"0.015", ",", " ", "0.035", ",", " ", "0.0005"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.502796017516738*^9, 3.502796059615034*^9}, 
   3.502796120299005*^9, {3.502796153081514*^9, 3.5027961542172995`*^9}, {
   3.502806947858302*^9, 3.5028069487645636`*^9}, {3.529202821880172*^9, 
   3.529202843209304*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.015`", ",", "0.0155`", ",", "0.016`", ",", "0.0165`", ",", "0.017`", ",",
    "0.017499999999999998`", ",", "0.018`", ",", "0.0185`", ",", "0.019`", 
   ",", "0.0195`", ",", "0.02`", ",", "0.020499999999999997`", ",", 
   "0.020999999999999998`", ",", "0.0215`", ",", "0.022`", ",", "0.0225`", 
   ",", "0.023`", ",", "0.0235`", ",", "0.024`", ",", "0.0245`", ",", 
   "0.025`", ",", "0.025500000000000002`", ",", "0.026`", ",", "0.0265`", ",",
    "0.027`", ",", "0.0275`", ",", "0.028`", ",", "0.028499999999999998`", 
   ",", "0.028999999999999998`", ",", "0.0295`", ",", "0.03`", ",", "0.0305`",
    ",", "0.031`", ",", "0.0315`", ",", "0.032`", ",", "0.0325`", ",", 
   "0.033`", ",", "0.0335`", ",", "0.034`", ",", "0.0345`", ",", "0.035`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.502796060635581*^9, 3.50279612090938*^9, 3.5027961619646673`*^9, 
   3.502796710978778*^9, 3.502796788675087*^9, {3.5028069459364023`*^9, 
   3.502806949280195*^9}, 3.50303094309375*^9, 3.5030371868893433`*^9, 
   3.503038295246598*^9, 3.503059846747192*^9, 3.529157596155051*^9, 
   3.5292026616771526`*^9, {3.5292028243004136`*^9, 3.529202843689352*^9}, {
   3.5292062107450237`*^9, 3.5292062258955393`*^9}, 3.5292298616672153`*^9, 
   3.5292299922418895`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simulate", "[", 
  RowBox[{"dataX", "[", 
   RowBox[{"[", "40", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5292024625552425`*^9, 3.529202475771564*^9}, {
  3.5292025931753035`*^9, 3.5292025933063164`*^9}, {3.529202754245409*^9, 
  3.529202784369421*^9}, {3.529202863052288*^9, 3.5292028699329767`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5292028639043736`*^9, 3.5292028703850217`*^9}, 
   3.5292057430472593`*^9, 3.5292058287188253`*^9, 3.5292058931002626`*^9, 
   3.5292059673976917`*^9, 3.5292060534132924`*^9, {3.529206198383788*^9, 
   3.5292062280047503`*^9}, 3.5292063557985277`*^9, 3.5292298617452164`*^9, 
   3.529229993755109*^9, 3.5292300343468294`*^9, 3.5292302421580935`*^9, 
   3.5292303641048565`*^9, 3.5292307902419205`*^9, 3.5292310733231497`*^9, 
   3.5292313191375012`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5292028639043736`*^9, 3.5292028703850217`*^9}, 
   3.5292057430472593`*^9, 3.5292058287188253`*^9, 3.5292058931002626`*^9, 
   3.5292059673976917`*^9, 3.5292060534132924`*^9, {3.529206198383788*^9, 
   3.5292062280047503`*^9}, 3.5292063557985277`*^9, 3.5292298617452164`*^9, 
   3.529229993755109*^9, 3.5292300343468294`*^9, 3.5292302421580935`*^9, 
   3.5292303641048565`*^9, 3.5292307902419205`*^9, 3.5292310733231497`*^9, 
   3.529231319153101*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5292028639043736`*^9, 3.5292028703850217`*^9}, 
   3.5292057430472593`*^9, 3.5292058287188253`*^9, 3.5292058931002626`*^9, 
   3.5292059673976917`*^9, 3.5292060534132924`*^9, {3.529206198383788*^9, 
   3.5292062280047503`*^9}, 3.5292063557985277`*^9, 3.5292298617452164`*^9, 
   3.529229993755109*^9, 3.5292300343468294`*^9, 3.5292302421580935`*^9, 
   3.5292303641048565`*^9, 3.5292307902419205`*^9, 3.5292310733231497`*^9, 
   3.529231319153101*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(General \
:: unfl\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5292028639043736`*^9, 3.5292028703850217`*^9}, 
   3.5292057430472593`*^9, 3.5292058287188253`*^9, 3.5292058931002626`*^9, 
   3.5292059673976917`*^9, 3.5292060534132924`*^9, {3.529206198383788*^9, 
   3.5292062280047503`*^9}, 3.5292063557985277`*^9, 3.5292298617452164`*^9, 
   3.529229993755109*^9, 3.5292300343468294`*^9, 3.5292302421580935`*^9, 
   3.5292303641048565`*^9, 3.5292307902419205`*^9, 3.5292310733231497`*^9, 
   3.529231319153101*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.5292024676567526`*^9, 3.5292024763946266`*^9}, {
   3.5292025910710926`*^9, 3.529202593863372*^9}, 3.529202667194704*^9, {
   3.5292027580087852`*^9, 3.5292027848424683`*^9}, {3.5292028639323764`*^9, 
   3.529202870408024*^9}, 3.5292057846064143`*^9, {3.529205869795933*^9, 
   3.5292058931502676`*^9}, 3.5292059674156933`*^9, 3.5292060534362946`*^9, {
   3.5292061983887887`*^9, 3.529206228155765*^9}, 3.5292063558245306`*^9, 
   3.529229861885618*^9, 3.529229993770709*^9, 3.5292300343624296`*^9, 
   3.5292302421736937`*^9, 3.529230364136057*^9, 3.529230790288721*^9, 
   3.5292310733855505`*^9, 3.529231319153101*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["result"], "Input",
 CellChangeTimes->{{3.529231335018505*^9, 3.529231335845315*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.001`", ",", "0.5`", ",", "0.001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.0015605596694295608`", ",", "2.143273134026337`*^-13", ",", 
     "0.0015933180812678367`", ",", "2.519818705507468`*^-13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.8771508679901208`*^-79", ",", "2.7949535347486634`*^-269", ",", 
     "1.877150925202173`*^-79", ",", "2.771553298614812`*^-268"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Underflow", "[", "]"}], ",", 
     RowBox[{"Underflow", "[", "]"}], ",", 
     RowBox[{"Underflow", "[", "]"}], ",", 
     RowBox[{"Underflow", "[", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5292313363289213`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"Plus", "@@", " ", 
    RowBox[{"Abs", "[", 
     RowBox[{"vect", " ", "-", " ", "vectPre"}], "]"}]}], ")"}], ">", " ", 
  "crit"}]], "Input",
 CellChangeTimes->{{3.52923028011338*^9, 3.529230283124219*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.529230283483023*^9, 3.529230804874908*^9, 
  3.5292310753667755`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["vect"], "Input",
 CellChangeTimes->{{3.529230289925906*^9, 3.529230290191109*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Underflow", "[", "]"}], ",", 
   RowBox[{"Underflow", "[", "]"}], ",", 
   RowBox[{"Underflow", "[", "]"}], ",", 
   RowBox[{"Underflow", "[", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.529230290565514*^9, 3.529230806512929*^9, 
  3.5292310770827975`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["vectPre"], "Input",
 CellChangeTimes->{{3.5292302932331486`*^9, 3.5292302961971865`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.8771508679901208`*^-79", ",", "2.7949535347486634`*^-269", ",", 
   "1.877150925202173`*^-79", ",", "2.771553298614812`*^-268"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.529230296633992*^9, 3.5292308083225517`*^9, 
  3.529231079079623*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cut", " ", "/@", " ", "result"}]], "Input",
 CellChangeTimes->{{3.529230328536401*^9, 3.529230343824597*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5292303298000174`*^9, 3.5292303443394036`*^9}, 
   3.5292308162318535`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"analyze", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5292304600616875`*^9, 3.5292304674873824`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.529230468251792*^9, 3.5292307450013404`*^9, 
  3.5292308181506777`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vectPre", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vect", " ", "=", " ", 
    RowBox[{"update", "[", 
     RowBox[{"{", 
      RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], "}"}], 
     "]"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"first", " ", "iteration"}], " ", "*)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"i", " ", "=", " ", "1"}], ";"}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Plus", "@@", " ", 
          RowBox[{"Abs", "[", 
           RowBox[{"vect", " ", "-", " ", "vectPre"}], "]"}]}], ")"}], ">", 
        " ", "crit"}], ")"}], " ", "&&", " ", 
      RowBox[{"(", 
       RowBox[{"i", " ", "\[LessEqual]", "  ", "10"}], ")"}]}], ")"}], ",", 
    "  ", 
    RowBox[{"(*", " ", 
     RowBox[{"following", " ", "iterations"}], " ", "*)"}], " ", 
    "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", " ", 
      RowBox[{
       RowBox[{"vectPre", " ", "=", " ", "vect"}], ";", " ", 
       RowBox[{"vect", " ", "=", " ", 
        RowBox[{"update", "[", "vect", "]"}]}], ";", " ", 
       RowBox[{"i", " ", "=", " ", 
        RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}]}], "\[IndentingNewLine]", 
   "]"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{3.5292311047887526`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529231105958768*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529231105958768*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529231105958768*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(General \
:: unfl\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529231105974368*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"result", " ", "=", " ", 
  RowBox[{"cut", "/@", " ", "vect"}]}]], "Input",
 CellChangeTimes->{{3.529231145692477*^9, 3.5292311464724874`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.529231146831292*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"analyze", " ", "@@", " ", "result"}]], "Input",
 CellChangeTimes->{{3.529231251495034*^9, 3.529231252477846*^9}}],

Cell[BoxData[
 RowBox[{"analyze", "[", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}]], "Output",
 CellChangeTimes->{3.5292312124165325`*^9, 3.529231252992653*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"res", " ", "=", " ", 
    RowBox[{"Last", "[", 
     RowBox[{"Last", "[", 
      RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
   "*)"}], " "}]], "Input",
 CellChangeTimes->{3.52923115447539*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"First", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(First[0]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/First\\\", ButtonNote -> \
\\\"First::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550837975`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0 \[LeftDoubleBracket] \
2 \[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550837975`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"First", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(First[0]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/First\\\", ButtonNote -> \
\\\"First::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550837975`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0 \[LeftDoubleBracket] \
2 \[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550837975`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"First", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(First[0]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/First\\\", ButtonNote -> \
\\\"First::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550837975`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(First :: \
normal\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550993977`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0 \[LeftDoubleBracket] \
2 \[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550993977`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311550993977`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"result", " ", "=", " ", 
    RowBox[{"cut", "/@", " ", "vect"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"res", " ", "=", " ", 
   RowBox[{"Last", "[", 
    RowBox[{"Last", "[", 
     RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"NumberQ", "[", "res", " ", "]"}], ",", " ", "res", ",", " ", 
    "0"}], "]"}]}]}], "Input",
 CellChangeTimes->{3.5292311346319356`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"First", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(First[0]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/First\\\", ButtonNote -> \
\\\"First::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311357863503`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0 \[LeftDoubleBracket] \
2 \[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358019505`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"First", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(First[0]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/First\\\", ButtonNote -> \
\\\"First::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358019505`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0 \[LeftDoubleBracket] \
2 \[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358175507`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"First", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(First[0]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/First\\\", ButtonNote -> \
\\\"First::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358175507`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(First :: \
normal\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358175507`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0 \[LeftDoubleBracket] \
2 \[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358175507`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292311358175507`*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.5292311358175507`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FoldList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"update", "[", "#1", "]"}], "&"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], "}"}], 
   ",", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", " ", 
     RowBox[{"{", "8", "}"}]}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292029291588984`*^9, 3.5292031556175423`*^9, 
  3.5292298621352215`*^9, 3.52923011865131*^9, 3.52923082222233*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292029291588984`*^9, 3.5292031556175423`*^9, 
  3.5292298621352215`*^9, 3.52923011865131*^9, 3.52923082222233*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292029291588984`*^9, 3.5292031556175423`*^9, 
  3.5292298621352215`*^9, 3.52923011865131*^9, 3.52923082222233*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(General \
:: unfl\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5292029291588984`*^9, 3.5292031556175423`*^9, 
  3.5292298621352215`*^9, 3.52923011865131*^9, 3.52923082222233*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.001`", ",", "0.5`", ",", "0.001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.0015605596694295608`", ",", "2.143273134026337`*^-13", ",", 
     "0.0015933180812678367`", ",", "2.519818705507468`*^-13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.8771508679901208`*^-79", ",", "2.7949535347486634`*^-269", ",", 
     "1.877150925202173`*^-79", ",", "2.771553298614812`*^-268"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Underflow", "[", "]"}], ",", 
     RowBox[{"Underflow", "[", "]"}], ",", 
     RowBox[{"Underflow", "[", "]"}], ",", 
     RowBox[{"Underflow", "[", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5292029291708994`*^9, 3.5292032268636656`*^9, 
  3.5292298621508217`*^9, 3.52923011865131*^9, 3.5292308222379303`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simulate", " ", "/@", " ", "dataX"}]], "Input",
 CellChangeTimes->{3.529202394169405*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.529231485810038*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.529231485810038*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.529231485825638*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.529231485825638*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.529231485825638*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Power :: \
infy\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.529231485825638*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.5292314858412385`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Infinity \
:: indet\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529202394968485*^9, 3.529202703541339*^9, 
  3.5292028270306864`*^9, 3.529229861948019*^9, 3.529230832128457*^9, 
  3.5292308722677717`*^9, 3.529231419041182*^9, 3.5292314858412385`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["result"], "Input",
 CellChangeTimes->{{3.529230914045108*^9, 3.529230914903118*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.5292309152463226`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["s"], "Input",
 CellChangeTimes->{3.529230529295375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Round", "[", 
   RowBox[{"330.`", " ", 
    RowBox[{"First", "[", "0", "]"}]}], "]"}], "+", 
  RowBox[{"Round", "[", 
   RowBox[{"329670.`", " ", 
    RowBox[{"0", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{3.5292305296853795`*^9, 3.52923090019213*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataX", " ", "//", " ", "Length"}]], "Input",
 CellChangeTimes->{{3.529202852606244*^9, 3.529202858316815*^9}}],

Cell[BoxData["41"], "Output",
 CellChangeTimes->{3.529202859386922*^9, 3.529229862166422*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulateAll", "[", "noise_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Sigma]N", " ", "=", " ", "noise"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dataY", " ", "=", " ", 
      RowBox[{"simulate", " ", "/@", " ", "dataX"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dataXY", " ", "=", " ", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"dataX", ",", " ", "dataY"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"dataXY", ",", " ", 
       RowBox[{"Joined", " ", "\[Rule]", " ", "True"}], ",", " ", 
       RowBox[{"PlotRange", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Min", "[", "dataX", "]"}], ",", " ", 
            RowBox[{"Max", "[", "dataX", "]"}]}], "}"}], ",", " ", "All"}], 
         "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.502807021438345*^9, 3.50280714020549*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Simulate Fig. 4", "Subtitle",
 CellChangeTimes->{{3.502630077505207*^9, 3.5026301077224092`*^9}, {
   3.502631477742852*^9, 3.502631477742852*^9}, 3.502631593443015*^9, {
   3.502795833640537*^9, 3.5027958346083474`*^9}, {3.5027968362042713`*^9, 
   3.5027968378223314`*^9}}],

Cell[BoxData["InitStandardParameters"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulate", "[", 
   RowBox[{"myPar1_", ",", " ", "myPar2_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"g1", " ", "=", " ", "myPar1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"x0", " ", "=", " ", 
      RowBox[{"myPar2", "  ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"n", " ", "a"}], ")"}]}]}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"y0", " ", "=", " ", "0.001"}], ";", " ", "\[IndentingNewLine]", 
     RowBox[{"result", " ", "=", " ", 
      RowBox[{"FoldList", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"update", "[", "#1", "]"}], "&"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], 
         "}"}], ",", " ", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", " ", 
          RowBox[{"{", "8", "}"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"res", " ", "=", " ", 
      RowBox[{"Last", "[", 
       RowBox[{"Last", "[", 
        RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";", 
     " ", 
     RowBox[{"(*", " ", 
      RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
      "*)"}], " ", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"NumberQ", "[", "res", " ", "]"}], ",", " ", "res", ",", " ", 
       "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.502795860343711*^9, 3.5027959838269677`*^9}, {
  3.5027968502355995`*^9, 3.502796859163739*^9}, {3.5027968909829917`*^9, 
  3.502796993883632*^9}, {3.5027976619219294`*^9, 3.502797741068231*^9}, {
  3.502797822473177*^9, 3.502797828856558*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"simulate", "[", 
    RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "  ", "0.015", ",", " ", "0.035"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", "90", ",", " ", "330"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5027974847184277`*^9, 3.5027975875194654`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.529158354136842*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.529158354137842*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.529158354138842*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(General \
:: unfl\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.5291583541408424`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.5291583541418424`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.5291583541428423`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.5291583541438427`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.502797588781103*^9, 3.5027977543652315`*^9, 
  3.503030944421875*^9, 3.503037189162315*^9, 3.503038296589832*^9, 
  3.5030598483874598`*^9, 3.5291583541448426`*^9}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyFnXeYTsf7h0WNBAmxCJEoqyfRezirW90qiS6ihFi9i+g9gtV7DRIi0ZZE
eQURfKOGKKu3XcvuRu/8Vsw9h8/xXr/9x+W+5nremc+ZeeZ5Zuacydqqc0ib
hAkSJFiWPEGCRPH/Tr87872QDd85qxJEVkkwqGFQAvN3pdhbx5ccmmD59Z9T
3brzsLiT9MaBRYHBYZaHdX3v0jfvhjjZfwrrtNA3yWMn6Mv6JbMUm+LhzbKn
Szx3xVQP73f66L5M2ad7+LQZ//15+Nr6TVqnf3uWhx98K3P+KSNme3jsntP3
0zye4+Fvjpi/Y0L3eR4+OcuqKsl6zvfw7E9Sf1S5wAJvfSK6pRl+1cvR+VxY
9P7A3Y09OsOvN8m6YMq6UlZn+Os5rq8u+qarM3zl3fDzpe8H+9BZ7aOzcnRW
js7K0Vk5OitHZ+XorBydlaOzpz5GZ+XonDpH7KfBaVp4dIb/GD5o8MwtFazO
8AWtjobcelTX6gzvmm7o6bpXrjroDF+fvl7yolljHXTW30Vn5eisHJ2Vo7Ny
dFaOzsrRWTk6e+pjdFaOzvMj7sWF//S5R2f44Mo9EuWqWMfqDL/504erUza7
bHWGq85w1Rk+70qtt7vkj3PQWeuDzsrRWTk6K0dn5eisHJ2Vo7OnPkZn5ei8
YfGDwsGHvvDoDC8WN6HkqJa1fegMD42Z9d2iYZFWZ7jqDFed4aozPN/eT7/a
0yvOQWetJzorR2fl6KwcnZWjs3J09tTH6KwcnQ+EPuodcaeNR2d4rbVTHpcI
mGb7Mzz60+1/Z/7Z1RmuOsNVZ7jqDFed4d8H1W3/XqYYB521/uisHJ2Vo7Ny
dFaOzsrRWTk6RxV7sjE005ceneHHVn09Li73Sasz/IuVQ3au2uHqDFed4aoz
XHWGq87wPAWThheL5+is9Udn5eisHJ2Vo7NydFaOzsrR+b//BHXw6AyvO2hh
hbDfz1md4VHb+kZO3O/qDFed4aozXHWGq85w1Rk+cPbQaU/zxDnorO1CZ+Xo
rBydlaOzcnRWjs4Zdr9WMax1R4/O8OH1D11PMPC81Rn+y7fzHgw64eoMV53h
qjNcdYarznDVGV7vVrNxfSq4Omu70Fk5OitHZ+XorBydlaNzgbBEowJHd/Lo
DO/94/SLpce6OsM/aPr53M8OuTrDVWe46gxXneGqM1x1hqvO8OvdE38fvD3W
QWdtLzorR2fl6KwcnZWj8+KfEraNaNjFozP8w/l/ZdrYxNUZrjrDVWe46gxX
neGqM1x1hqvO8J5n6q+/fcXVWduLzsrRWTk6K0dn5S/15/Zdg26ub7C0YbnK
vpf6czyf+s34uIXJpT/H868Wjn107Kj053j+yv4cz1/Zn+P5K/tzPH9lf47n
r+zP8fyV/Tmeq87w/r3mbMn22zXnpf4cz1/Zn1/gL/XnF/hL/fkFjs6beiX+
MbR/t6COtUtOuHynoIPO8MU77gzvtdCdB+GqM1x1hqvOcNUZrjrDVWe46gxX
neGnBh0aXLJJrNUZrjorR2fl6Kwcnas2SfJX+LjuQYN33JmQvUMBqzP8xtI/
dwwp6uoMj5p6Lk+zU67OcNUZrjrDVWe46gxXneGqM1x1hh8MiImp9aWrM1x1
Vo7OytFZOTofdpLGPp3XI+h+jke90r0VbHWGz97ULrzh1rNWZ7jqDFed4aoz
XHWGq85w1RmuOsNVZ/jbybpvbd7T1Rl+PGRt8g5zrznoDFedlaOz8sn7C47+
IvEkZ/fuqLFhiz8L+jf7xZEX09TxrR5zs965fpMt1/L3m1x7Z31M06DYSTUq
/PWhWx4++8/+E1oWi3H2VVr3fovrUyzHTp+0XbZcGjfRSXv37t7QWS2Dvvqn
wuT0Xxa25eEXOyQ5sX9nrHMtQe8rJ9tNsxw7jRutvNku/QTnw633UyfY2iro
i8l7G9VYV8aWh1f45OM7G5vHOa9vKrG28enplqudiqMfNgi72Dqof9T4W52c
QF/O3g++OVZ/puWUx07TkMczApO3C4qs1GpI/fjnXr7QpuCG/5vl9Mj09FT4
R+1t+ZYxA9IeLmfm316hln+9zDlTd8NcJ/qDRHefnnHnzb2rEhxpl36+893e
JM0i0rnPi3ryXPom2pS3TO23fYwXfV7oDP/7tWy3FhwobMcLnHVXni/ruje7
nEnXOkUdH+OI8sOKZOm1Y0UV+9x1Hfhax23zLo1b4KkP/dBfPeknXx8tlzLt
ziK2nnBdH4aHBU2LKBd3xY5rOOMa3eg/w+blbjOjfinrT+AbnmxJFzWyqtUB
fnTdjfWnE0c71JP+0/vXtifSNllpOf2kweFayRfuvWD7IVz7IZz+Q3n6FeXx
P3D8D/0Tjp70Q+XYp39qfeDUB/vwoT8XcIrXcev57cUE2YJDvvLYgasdOHao
J1zHi3J+l3GkvwvX34Vr/f+b32d19tiBqx34kjsjD19uGudQT7iOa+X8LuNd
fxeuvwvnd7HTK3Hid4NvdPXYgasdOHaoJ1z9j3J+N+GVxKXDEnf3/C5cfxeu
vwufsn3dySe5Yhx+F65+D3/4V6U3pwxqvdzB78HPLXjrtQO9ill94FpPuI47
5kfKU3/KU3/sUF7bC6c87dL5t+n4z39bcsjr5/Gf/rjaQR/8cI4ipx7eLZTE
h1+CM89iR/02/ha/h7/FT+L3mtXP816DX0NsHmfnzZEjkhUrWc2Hv4Ljr4iL
1C9RHj+j8RWc+Iry+ActD6c8cZf6k5fy7nj/8Mq8O57r7zKuX5nXxHPKv5Sn
vOAHsMO4Vjtw/V3Go5aHU564UccvdhhfageudvyNR/rhH7mf5nzQa4WtJ/1W
7cOxT//3F69q/6e/ET/sbNi5eFCWEk7TsucfJmw1ySlzKbJ9cNinQTXSNE26
rUFNX3SmCufKZZ5suR13pjz9n/I5jzx8bWL38Z7yv3zvq165wETL5z55+MOp
SrV9ztAsBYdfdXlU9zrZ10RUdva2HJxux5Iwy1fNXBxdLEuID87vduzSLemK
tCE2vtLfpf46Tussztho3aYFnvI8F+KfZmnOlHs3W2Y7TuF/d638sGq0Y+df
+nmH3hcOdX073o8ZHVYlHfF9aJP4vCPXn/VT9A9y1nTO1fTrP6ZZXmzo9tAB
HeKcA3mv5HxQeobl+EPqCdd6sq8dMHLnkZpLslp/Bb8cWGnMxoFFbDwGz/R3
9Sat3nXzDni/D6fHNfwgxsZj7OcuzH/57wk33fwCTn5BefYlT7x/74fw3wrZ
fBB/GHCz0fVV2dz5gvJjl04MTRUSZ+NM9t2mVBhYZ03flHZc4D8vNbyaMlv2
A9YO5XWe0v075hfdb2J84Vevnvuq9sT2rh32TXSegq/qXn7FrmJuPPaf0RfW
/+GsV0cVvpdmUSI3/tH1VeZ3Xad6KS7q3y1o1ao31y4YddiOlwYrr/wUEd4o
qOfee0N+yxdixy8cO5QP7X31emhEE1uecQ1nXNN/eO5h24emqL3nHwf7lH+t
WaYEzYKuOX3vL9o56JjLs3cMLBS6IcbBD+wbdveT4DQtg/bmWteuz/K61g/A
8QOUb9z+XvOwwM+Dvs018u8LqUJ89BN7HmDdrVnXZ5S38Yzmp4zHboUeLAwM
9u7nan5Kf/CXt9J/6A/lao4qt3HQdCfd2UevJxjUNmjo6VGnhr+Qz3r248w8
7i/P1X2Nl9al4/1MwqUha37Kt8LGgbpuTLyk60LooP0BHfz5bcrXmpIqybkk
dezzgi9//0C1yOuVbb4J17wY+6yT0N8oT3/Dn8O/uHOj+bFdwT7qQ78q12TW
0ds73PrAqQ/lhwfFFE2QoHnQsU2j+t3u7PY3uM478NuZysd+UTXEl+xo4hW+
SVMsH7M25bDifWKdbLuat03Wc4Ltn502b2wzdlMlO1/A820uui/xtuq2nzxJ
93BHaJPWtp/Axzx8eDk8tI2HL9zxOG9wWDvLYy79eL336pm2v/G83ljQcdPt
3LOdyt0STAzc7fqfXE0/Htl93pzn8UwaN46qmP7futcD5jn1/jf0QPhPrp/h
d5l3+N3mr1dLUfKuO0/hJ9GB51vprdUzDy8vb8cpnLga/ZmX0Z95hPKJw+81
uTSmsDsPyjyOHXROGjQyZ60ZlW19GO/RJ/tV+m1LHd+hW3WKFzg4z8mRbfjQ
wGDvuCCO6tTz42bJP8pu5x3aq/EY3K5bcq5P5msbD0j96Z/wFrVH/1G0nns+
Bx04P4l9HaeUp/8z7tAfvz3laOddybtnsvrgb9f3L97j90oVbL+Fj/z1tbQL
n1ay4wK+68mQD4bXW2bHO5zfpV2Xa94fFFGsVdDkPB/vu9Gsno/fhXMukd+F
P1lzav/9w/VsPRkvU5J8M2L8p8G2nzC/jyy431md57z9XcoPGRe5YVujHTb/
gt+Yfrr0mMM1fMRjcOIxnjuc5068gf8n3sAO41HtwNUO8wJ2GHcf//CkRtji
L+24wz5c7cOxTzwJL1k/rNTP7d3xCye/pj/D6c/U879OFh/PaHwF13kQ/6P1
h2v94Vp/OPUn7uJ3WY+iXZTHL9EuuLaLeVbbBdd2NS+d8Eh4TEdPu+DaLri2
C67xJL+r7aK8tgv+yn3t+DiBfRPaS5yp7YVre5kvtL1wbS9c2wvX9vK79EPa
S3ltL1yfI/HPK9czG3bxtOvPy0NWhs7q4mkXXNsF13bBX7le2rCLp12U13bB
tV3E/698Xu27etrFPK7tgmu74Nou+CufV/uunnZRXtsF13aRv7xy3Tiea7vO
/DzsxlNfN0+74NouuLYL/sp16fjf1XZRXtsFp13EUXCNw3UfnDhEy7NepNy+
f2HiilwdUvz1x73KVk/ifNUTrnp+NXl42uBD3T16wlVPOHpSnnhJ1zEorzpT
H9WZ8qozHJ2xr+vG7OfqeleBK599V7zyfE88Btd1M+JM5cQh5CPZ11z6vN6X
5W0cy/oJeQd5DZy8hvUT3b9j3005ebTma8Rd5CPEXdSHeI+4mn6i+8iszyif
urbNxCe1plr7cOpPfs36D5x8HE4/1H1n+pVy+hXxvOpPvHfOmT89blQ9G78R
59MP6W+6DkC/Uk6/0vUB4mfWhUbkHdf/r4R1bV5DHDg/2bToIdMcH/m+rhsw
LysnjyPv0/qQ9xH/UB5OedYNdD2BdQPl5Im/jXvaKSLcyw81fG1NaIS7zv/S
OsML++8vnYt7gZNv/rcO/9Tl1JP1+eY58lzuODvWeWl/P37eXDHnL9/joFi7
76P7+/hJ5fjhlI2GOmGBXT18Rplhn0cUe8E/m7yG/h8XUOlUseIhdpzqe0Os
A5BnwVlHpT9zfoNxDWc/HTs2/wrcmKbmUPechr5HExi2s1eZN6bZ8nDGBf15
csihI7F5a/oY13DO4WCHPKv5oA+7fFfZnS/0vRLmC8rDyWfJj5Rrf2Y86nos
/l/t9N/+5tHw0Fk2H4FP/2bvgiIXZ9u4V/uh9od1Jcd3XN14ro2v4PRn5ovH
327/NPHTGLtfA18Zs7jd4F2XHOZr5iPsdMiTp9mt3mGOs+/a4ohezaxfoj/w
HOkP+HP8Kuui9BM4/QT/xnjXeRnOvMzzYv7SdRs48yzt0vkRrvMg41HL0w9Z
x2D9h3wcv9p109IkT1vUt/k4fOa8yh2qZapr1wfoP+9W3/jLd6UzWz8PVx3g
Gp/g3yiPPnD0wQ5c40a45tFwjVvgxC3UB7+q9YFrfeBaHzjxD/WBa33gWh/8
s9YHrvWBa33gWh+41geu9RncY0jm4DRdPPWBa33gWh+41geu9YFrfZhHtD5w
rQ9c6wPX+sC1PnCtD/OX1geu9YFrfeBaH7jWB671YR1V6wPX+sC1PnCtD1zr
A6c++HPyi+wzysTlPhpj8zLK94nplrPLsQvWz+s6MP6H+XpzggaDJn1a0fof
4kDaCye+Us55CeXES8o556CceU055xOUc95AOfManPlI15OJ/zXOgROf7z2x
KltogjgHTpwA53c1buG5a1xBfKvxAHGpxgPEmRoPwBnXyokHSqzfUbZ38Su2
n2icQB7HvNz347f2jEt6ye5nwTnHS/yj7SJfgH/XLHtonTfK23yN+JP8EfvE
b3la7UmwIVe05cRpFRO9VmxxFvdcJf3z0OxDH9XtcNFy8pSbT3c9bpv/os3X
dD+CuNTf/gL16fukbaKddSJt/WlXzRM9Lv3b7Zzl1DOox/f1q4360c771HND
jaFR39zdb9f5WSdfUmTbkp5ZSvsW/tYnun5GN74aMHJTxpArNWy/pV8RR/Ec
idMmd98V9+jJNbsvrPkmz0v7J88LPnPrpqvr9hSw8bnm6XDNF4i3dRwRb2ve
Ddf4H7+q9SSu9rTLcI3n8avaP8lbNS+Ga9xOfK7jlDxOz6fBPe+fmnhexzX+
XM+bwXV/nDhf/cBL628vnB+D6745ca/6Afobz4X+xj41+vN+BH4DP5k/zYWe
51Ndtf2TeepRx2G1U8y/ascjurF+Qh4H1zyO8UIehx3mI7UDVzvor3bQX+3A
1Q77LGqH+U7twNUOz1Ht8BzVDlztsF+gdphP1Q5c7dAf1A7zr9qBqx3Ww9UO
87Xagasd1ofVDvO72oGrHfwkdshb8QPkrfRzuPZz/An9nHmK9S7mL+YReNtf
n3wQMM+dR8jjGi8rGDrztjvP0v8L//LWtwc/du3AZ6Xf1fPsr64dxkX6nb9k
mZ7hsj2Pp+uKcPWf2MG/nUr2ZePa2y5ZffCr6MM5KHTouDv37OBl12z98Z/o
wLoT9r9vvfyDRg+jbHnma9pLedq1Pbprj0vJrjgjnoZ/cHSRew6wRJEs37T9
u6ATJOvS+01csVbO++U15/06pWrWZvw2bzyQ2/QT5ecDCoy6Wtf7/SW4zoOz
OS8h5RtmTrS8yrmZHk55tUN55W+b+FDtwLX8nsB/9i7q4v2+E1zLDzPzjpaH
a/myH/7w79On3u9EwbX8o0+Tv3Z0kff7UXAtf/zdLclXVvGeh4FrefoJ89eM
t3Y1z9DAsf0EnqLH8/2CB0nHlC9c2D3vV6P54hKtU5xxeC4an/BclKO/cnRW
jp7K0U05+ihHB+XowPj9cFq+a+Epalod4Ht6P49X0QEeMCrr/P1h0XYc2e8L
GT+ADhp3oYNydFCODsrRQTk6KEcH5eiAX/q1ydoTM2bX9aEDfPD4opF5j160
OsCDxpfo8/50Vwd4hvRXu1dI4voTeJcR1/ONHRFr9dF4En2Uo49y9FGOPsrR
Rzn6KEcf/HC1XyqVrldgou0nNp/Kt/PL8nGXrD7wXaNXzO86x9UHrvrAVR89
n4w+ytFHOfooRx/l6KMcfZSjD/H8D5n2zjq46JjVB55qxsTKiz5z9bHf4Ykb
cmRKE1cfuOoDV33gibs8O3e930EfzS/QRzn6KEcf5eijHH2Uo89//wnqEDSn
ZdM7vjRnrD7wKjeGPkld47LVB5592plzP7Rw9YGrPnDVB+6c6zR4XOE4qw9c
9VGOPsrRRzn6KEcf5ehDHvco+fS/s+Q/a/WB/1i24735Q1194Pu2pRy9/QtX
H7jqA1d94B8sOlRyWWVXH/jvBZ+dzz/joI/mm8P85KHooxx9lKOPcvThfFSB
KUm+PFzS1Qf+W/64zhMHufrAp3fp1XZtS1cfuOoDV33sebAeuT84HOzqA092
OGOLBhdirT76/sKwF99feIGjj3L0UY4+ytGH/D1/inobKrzt6gPP9dGmMqt6
uPrAVR+46gNXfey5MtEHvjzwaMeGCeKsPvAiPY/X3vLLZWeYn3P76KAcHZS/
1E/adw0qvexAyr7jz7zcT559R2VGjb7VW0s/iee3qu0cvaOV9JN4/sp+Es9f
2U+enUN7VT+J56oDfF+Z8xGpv41xhvl5z+WlfvICf6mfvMBf6icvcPTh/NX9
Rouznjl52uoDf9LhcvNB1Vx94KoPXPWBqz72PJvoA1d97PdbWl8I2Doh1uoD
P/DL8/d90EHPlaGDcnRg3WlFTN88ud93dYAXyDRrQtvCrg7wRSN2ZvyntasD
XHWAqw72HJroAFcd4B1f69E3Znqsba++z0J7ldNe9q9rT/77fMnEJ2x74U2y
JBqXKZ3bXri2F67thWt77fk0aS9c2wsvsiFZs/QL3Odu9+tXvNPm4ugYm+/P
zhJdNkFQ46Aa79SvlK1YWhu3f2bOiZHvk48n7h55LDC5u55PHrfVTz6+wtiH
U/92cg6N+mf/5Mp76z9yOfU/I+vkjOtZn0Y9CM3kcp5vQ9l3oL17V8fsDBzd
POjNrNk/3vm/0vY5jjL7L+SttOtfP+sGJ40dbdc0OedGu+qZfQdt11tNX163
p13/u3J1SFhrl9OuEbL+T78tm+Rqy+AQl9Pebxb2WRrY/vOg+vMblR8+LYdt
bxOzftWqyKj/3nOhf6Y361eahw43drS9X8g6GO0tV6BPugRn3XUw2vuBrI/R
3sebew+PaOhy2hsh+xS0t9O02KjQWd58fOpX/a6Gj/siqNyPWQsOLF7H9ufu
5nxIUKPyJ+t3OG7Hacj9vo3DEnvz0PycdxId5hj7qsPXct4PHRoZ+6pDcdkf
QYeAkX13h/Z3OTrckH0WdNiXtm+J4BvefHxlka/zB69uE1Th/sVOj++OsM99
rFkXbWHWRdGhw7b+cwPztPHoUNWsr6q/ylmnf8oE81t7/NU687uqz2Q5x4U+
Xc3vqj615Xwj+nxkflf1eSP9y/tH6HP5VL+vI9K5HH12Ph7QPeKfdkFFFj65
0y3jEavPInMOat73efsNTu/68yFjB5wPr9nOk4+3NOvG6IMOe4191WGFnLdE
h9HGvurQTva/0KHSuwPqhu1w39dDh2zyHh86PFny9dbQ0i5Hh9M7B64Pfdje
k1duMueOukZVa/G/lm4/mVl/YM7gbu09eXcfsx+kOlwy9jV/3C7nRdFhgbGv
OgyUc6fo0Oz8N1MCr3jz61KyD4gO6bp8kzhBS29+fWf84IdPP/Dmj4fNeae5
wWdrVKrv9ofVmQd3iJj6lSe/nmD2s1SHx8a+5okRcj4WHX419lWH6bKPiQ49
lw86Hp7S5egQIu9vosPHJQdVDRvmzaNTPTsvVNGbJ14z56zKzCyzZsgAV4c9
z/azNoZ68uhlZj9OdQgw9lWHW8b+8ts3N5664sYtv8h5YNo77tl5jEKhnvZ2
kH1b2ls54ZBvA3/w5sXvTNxWLqyIN+8bYs57aF58/tl+2ZnOnrxvq9k31Pam
N/Y1fhth7BO/0d5dsr9Mu4bI+7a0q/mzfcC93nx2Xs/tX0RU7ho0NXPp7Kcm
uOM6lTkPdvZck2EH+7jtGvBJhUzBCbt62nXN7GNquxYZ+9quNMa+xqWDjP3J
JSs3PZHdjcP3yv447Sq9p/yYwL7e/DRf4x3DAxt1C/q7VZIGV0+4ecdMc65M
89PkWSuWCUvrzb/6mH1VbVd+Y1/bNdfY13alNPbJs2hXI3kPmnb9ubLCitCx
3rxyfdk/loZ+1T3o98iJ44u8kE/lNOfKmp6/PGhRLbddU5JUahGRs7unXYnN
Pq+2a6Oxr+3Ka+xru2YY+5o3XZL3iWhXvUkV94XP8eaJFbLv3B0+oEdQidsV
0i15eNy2a7U596t5YtboSoMDS3rzpglm31nbVcXY13aFG/varhzGvuZHk439
WHN+244Lk18k+yjN2D821/JRn+2Sj1D+JxO3J57Tr/JPR93yN835HOJJ4qjN
EufDi5p8ocLqZ98HOG3L3zFx8oEqLXul+j7W8kIm3n7vn2M52s+JddhvPSzx
M7yBidt7Rj3bxz9jy18zcWYLs48PDzXx7Y2wsonSVYmz+eB3Jh5+//jgA+ln
RNq8abdZ5z/tPL8vAP17i99G/4ty3h4/n3DVHyXCbnX38IzmOcLpV5ynmv/9
/fzNn7r7j+xvvtEvZcZK62v54JSPK9/8yshk7vPytx+aUvJf+HDJc6kP57LI
o/ld+K1ahX548s9u28/v++kn8D4Bz87z77P5O+cNjt1f2ijk97et/VjTTxLt
mzr44YBo+xwTmTiZ5wgfbuJz5e+ZeFL7wxwTx2p/4BxF468yXl/RK872h6PS
H+y+vNnvCCnw/Pwt4zeFxLH8bhET12l91pl4kvrgHxKZeO/w8mfvQe+35WuY
uEjt7DXxmNrJZOIl4lj6cwuJu7DT2sQhav+SiXPUfmETnxAXUf5rM++rnW9M
/KB2qpt4AH9IPcc/m78auvGDja8k3sD+HjMv6+++YeZ3/d2CZr7mdynf0MyD
ameqmU/VzmYzP2KHenaR76fhB6Ijt996ut/LE5p5Wdt13sxfWp9sZh7U+gSb
eU3r8yjq+Tyb/vfn30vkd3v9tSNd8Plunvp8Z+ZTOOP3eO9K/z79uXtQiX/+
zvfl8hO2Pp3MeSqt50ozr+k4ZX1P63/E2Kf+1Effx2F+7yrvJcGXy3s6+L0z
xr7yMmZeVq6/i5/Ej/2ZMeH00pcqW//GObHjZUdXaLu0jg/Oua9SF2N6nImt
6MP/wPE/6KDnSCnPOUb1V/Dc5r0AynNeUcvDKY8f03On2OG8otqB6+9yLlHL
wyn/0vr/C+MaO5xLVDtw/V3OH2p5OOUZF/qdQzsuhGOfc4lqH6724Q23vTzu
9LuINj4xcZ3ah2Offq79k/5GnPBga2TDT94paOfZx92exwPEFfTnUmb9mfVk
eJBw7Ocw67c33tm4OFWxQpYz739+sWHuKZmL2X5V38wvFXo++07gGRsncE5J
40DG19Xrz76b58Z7nOeZWvXfsr4g97kz7ia+di7tmiK7bHnOt+i8D9c48ICf
eZ/xmNa8j4Mdzj/o84LnMs8L/T8yuhU82bd5hR1u/BZp1u0HmHOJ6L/XxMP6
XPYL53f1PWvqSbuoJ/yBWWc72qBL4LIXeCGzXgfHL+FniE9e2v+N9wNXaqf4
dGr7s7af6/4U9Q+R/Rp4A+HoxnsZ5DXwALP/onyKiW/RGfsdzH6E/m4XP3yI
2R9JbnSm3x4x+ym/jU/+89B5sbb/FzN5TZ1UGUddapzUcs7fvv1a1IJLARms
zufNeq/qn9GsGytfYtarlXcy69LKt5h1XeUjzPqtPt+rsu4KLyfrtzz3MrJe
B68tHD/fTNZ/8JPFZP+aejpmXtb6Zzf5FNyOX+MP8ZPwMPGfdh3V+MOzET8O
ab0+o52vh5k8ush3Vx4e7JTR9h/yLB2PjfjenfkOG3Zqmf2UJRkO/ZJsU10f
42KTWd/Q9vJ+sbYLTv353TJ+/Hao9Gfq08DsQw06WiukQrHTZeE3TP4VlfL9
MTNfD7Dlee/m7Rt1nyTen8Ta3yf+h/LbzP7OgU93Tqj6SUbL3zD7RBUPDEt5
c11tq7N9H+f86/06f57Plj9hxsW9ZdX/Op89gy2fzYyLQbXeznqgyLUtcM6T
T5iXePmRyDdtfAVHT+YF/KHOC5wz1/L4cy2fxuRr2j+rmXV+5bxvos83ztjX
fhsqcR0cO3Dq+dzJdvDUE67+P6/JE7WerUyeqJz3XLT+2Nd6JvPDh0v8Cce+
totzYtouuLarvMlPtf79zHqOct670XZhX+v5gR8+R+JhOPbhL52nii+veTTn
vrS9cG1vY+NXtV1hJo9WzvtB2l7sa/2L++HrJJ5/Kd5O09nzHDnHpe2Ca7tK
mjxd698g0fZD4Zu9nPeVtF3Y13ou88MvS34Bx762i/NXr3xe7bt62vWHWTfQ
+p8z6wPKeX/qlc+rfVdPPYv44d0kD4JjX9vFeSptF1zbVdesP2j9Q806g3Le
59J2YV/rudUPfxL1cv4Fx77mZduMnX9/fn6uzM7Lcn7MxrGyX4A+9t4u0Qeu
+pwy6w+qw/1fnq8bK+c9NdUH+9reGn74GIl/4NjXvFK/J2b3W028/UvmDRn2
tnzXxtu8d0O8TZw8Ts47wZPIuSnyIH2/mPKe+4BM+f1+eISpT0S+l/Op4XJu
iufYV84pwfvL+Si4vr9MPVOZOId8Fl7NxIHKyWfh1j/L+SW4vq9n98vkXI2N
G+X9Dri+72z3teW9ZuxrXglvIedh4L3lfAjxfxU5/8Dv6ne67Httcu4CvlvO
IdjzBrL//tI55Ffwg+Y8gPJEZt9feX0z71yN6ZXmxpWr1m80N5zydh3J7CNr
PfV7TXZ9WDjl//XD80reBP9a1q/g4eL36If63hw8s5zTY3yllnN38LTCsQPX
/l/D5CPsDzK+9P01+C4/+4P0Z11nPivf+2Ic6Xth8D0yjuy6nxnXnzV4dv/C
Vus/9f0puM8PLyPjiH7Fc79zYu6Kurfdc/KjuG/I7PPC8c+LDLfr9oanjX72
/a4/3PVzWffmeT2V/Tv4m0Z/ODrw3S2dp1iH1HnqsOTjdj6V9Xb73qis2zPv
kHdrns53tMpvOftpwhh3vb2t8UvvXZ9zaunZMjYf5D1rrf8/5tyX8rnmfJdy
vnOl7b3/NP7P8eY7/f3kcdjRdexYc/5KfzfcnLNSzneutD6p/eQpk/zkX9jR
+iQ1/lB/d5/xn8r5zpXWJ4+fPGK5n7wJO1qft8w5Jf3dy+a8k3K+h6P1me8n
/t/uJ6/BjtZnljlfpL870Ph/5XznSuvzoZ+4PdZPPoIdrU8ucy5If/dNs8+o
nO9caX02+Im3+/nJI7Cj9Vlj1rv0d6eZfUblfJ9K61PRT3yb9Mqr43/saPz/
uim/2+zLwMsb+1WnP/+OFv5wvZ/3Bf6W87rwPHLul7glh5zzhBcXzrxQSc4B
wq+Yfq48lRkXfWY8+47oabu/Vsrk0Rl+rDqw1Kartr0/yntVxPOVzHmegNEx
X/R+ctiuw/9h1r0bjsq97ETRs5YTV2v5pGbeLPhbw9I1Z0XbeT+m28vnUojP
mcdrdEhZt3cx9/zVJTOPNzbfWYJHGt7McPw/+zXp1wTuynz9T8tvmPXtzcsf
5Fy/bITlpcz69u2rP/8Ue8Vn7T8y8+Nf8h2J9DI/omct039Sm++wEYdUkfc7
4NXlvRK4xmPwzyVPYbwUkTjNrv/Lex9wja/greU9BevP5X0HxlcWP99DqCJ2
rH+QuMv6YT98qR+ew0/+clLeO6D/55f9C57XID/nkxfL+RMbR8m4s+VlHNn3
+ORcqI2fpf8wXoiTOQcFL2X2lZJfjJ56drTL+5k80ffGjQbbp0Xbfsj6wE3j
xxh3ZY0OGof3M/ma7sMyjjSuflvOWWGnocnv1H6YiaPUPnmf2s8t56aw08ms
S6v9H01cpPY5z6D2g+Q8FXZGmPVhtb/NxDlqn7xS7X8m56mwM9f0K7V/wvQr
tc+5CLXfRc5ZYaeJyUPVfl8Th6h98g61v0POU2En0qxPqv0kJq5Q+5yjUPt1
5JwVdrqbdUK1P9HECWqfcxRq/6Scm8LOU7POpvYzm/1EtU8+pfa/lPNOjOs8
8h4W45R5jfeV4DtNvsn4hb9v4gfKMx+xDnNh55LJTcIvWT7az3tSxcx45z0g
yjOuSzfeezBDmsuWB5hxncl8Pwqe3g9/bNaLzpvvRMGfCuc7hLPk3Cnf6VLO
d1OV8x1U5XxnXjnfgVfOd7OV831U5dyzoDz7k9QfVS6wwMNpr94jQLuU0y7l
tEs57VJOu5TTLuW0Sznt8tTH3MOlnPaWkPcoaZdy2qWcdimnXcppl3LapZx2
eepj2qWcdn0k8QbfLYfz3XLapeVpl3LapZx2KaddymmXctqlnO/IsZ/+ZdIl
G/tMj7Tfu4PzvTvaC6e9jF8439njuWeTPAh9lKOPcvRRjj7K0Uc5+njqY/RR
zvda8XubXsuU+J3Q360fSy/nvdETvn39H4ED17p6wlVPuOoJVz3h1SY2P9mw
vNvftD7oqRw9laOncvRUjp7K0VM5eqYw5yXWbVz3YbG0p6yeKeQ9R/SE35qw
YE/Kna6ecNUTrnrC0RM/DNf7DeF6v5jWE52Vo7NydFaOzsrRWTk6K0fn1579
J6hDUN1BCyuE/X7Ofn+Y90afNkrxXr12563+lMcOnPL6XCgfta1v5MT9kfa7
lJTv/XepDNmPu8+L8jwvOOX1OVKe5winvD5fyuvzhevzhevzhQ+cPXTa0zwu
53cb/bCwU3CQey+86sZz98dVT/qDlodrefqJlodrefqPlodrefqVlodrefrV
VbNO+zBtZK6PRrn96qrcg0M/gVeI6rKu1WG3n8C1P8B57uij9tFBOe1VTruU
066zJi97PfDddmND3XadlXUA2gX/oOnncz875LYLru2Ca/wA5x5D+hs8cH2v
Aj0jXB20PuigHB2Uo4NydCBP/PytlUl+LuTqAL+5vsHShuWK2ftb4ZUG9tqb
4YirA1x1gKsOcNUB3vNM/fW3r8Tae9B0/5T2Kqe9ymnvRZPnRpS4U+XG+XO2
vfBKywIiAgKK2vbCv1o49tGxo2574dpeuPoxOH4MHeCqAxwd8DPwFo0PVhnb
0L3f56K8f4RuytFNObopR7fTJu/u8/jHKSVHurrB16z48sC6SQXtfAEf88G5
ZKVemC/gqhtcdYOr/4er/4er/4erznDVGZ4x5/GT3zR3x+Npee8YnZWjs3J0
Vo7Ox8x+7qgfH5Y/lfOc1RMeNfVcnmanXD3hqidc9YSrnnDVE656wlVPuOoJ
v/93mah/27t6wn+79nxfGz2Pyb42eipHT+Xcs0D+3qxIo8/yDKvpbO1Zat2h
CZMsfzxs9K1vllb3nSzwaGCdZFM8+f79q5ur7RvgXcdIt3RgQI1b0zy8cKty
Z3d38K5jhB7b0fOPT73rFWMmjQiqsM+7XrG0VtU3f6/oXa84nzjJV/Oaedcr
up5vU+d0Bu96RcKtO4tmPuzl3GOi+T73mCjnnhHlfP9fOfdRKvft/LV7r9e8
6wzcU6k83bbqKVf9MNnm74tnrVoZ0DXG6XhzQmjelN71h3Nnpk3PGjnXwwfu
XbFq/8fedYNUy1NOSxXt5XNHdfq65vfedYP95rv0H8l9kdy/oPl40/Gf/7bk
kJdf67ht3qVx3vz9x+7rTpXd6M1zS9VNt31AL28+O6poh8sBLbx52SLT/4nr
cl31Zf8ifaTt//CE1xacebftVeeU6f/w8envLypxIsZ5YPo//ProTQmrBsQ5
6U3/hxdcNu7aoi5xThHT/+GjSheZXSneb3Qy/V/jzLGm/ytfZvq/8gum/yvv
Zvq/cvq/cr7zT3yYsMiY7+dcirb3sMDbpp9X9pNJMfY+IHj5vHlvf/AwPp4x
4wjOPUQHzTiCcw9UbjOONC5lHCkvaMaR8q1mHClnHClnHBEHlk1f6bhTI8Yp
NCDlsY+zTLV80p5pkXfPxjpnzTjSuJFxpJxxpJxxpJxxoXEa40L5D2ZcaHxS
0owL5SPNuNB5lnsN8DNJOw8sfnz8NeedU+mTpGsx0Y738a2vndzYvpRv1O73
C6QsOc3yFNHP5s39TiNznw7j98PJexvVWFfGuWruzYFzf3Eycw8O/MJP+Sru
axbzSWyFFT0KHBxvx/WfUeNvdXLS+jZPSPpT8cruezGJ32y8e02VIs52Z+Ef
r+ec6fEDo1eGlFg21MvLm3t28A/cX7bf9E941e3He26oGutwfw39J1+PxN8H
bz/tMO78zb+e9XMTn6DzkHwpTwVfi3aumfaiZ9Z5udvMqJ/XrmPA7zXr1+1O
YDWnwPTj+ycdCbM8ovDgXtEZrzi9zT1Q6Bn0a9sTaZusdALMc0SHa+tHrU9z
8ZgTUX1X73WbXB7QKWLVvT8vOqPN84XPbBf+KCokzqldYv/CFVNdvunMvVWz
W8c53w87+2DMz9MtLxp2O39ovJ5fmfkIPnbt7s990yOd1cY/oDP+oYW5twje
NujZe6mnnGvmvjD151+b+4mUv272x5XXMfv1rCP9+/Pz9zrXyXpIK7Mekv7b
NZkjy7rrIU17J+0ws1ukc8jPekiRKj2jWq/z+vORRk/GO3ouNrrB0e1305/h
wdfup/7kizjn0bocTRK/M8fyK//Fk/ucDF0jcwwZ7fVL/C5+oE7zjwp/H/+7
dcxzhG82z5H6wKlPqHmOcPw29YRTzzFm3MFT99pcfmzDOFtPeFSvOVuy/faX
g/9UfxVrnjv+6uvbN37JXyc+3jb3QMFLZ6uYf/bvMQ7zgvq3Jm2rj78eMN6O
02Ipu3Z4vHOszdfgux4+WlErpqATYvqJzS/M9xmYT3W8JzLzqXLyFMbpk/S/
Dnm/z047rhmnjevnea/BryE+8gXtP+QjPF/NR+DkI+QX/tY38EtLTqytHPR2
KXtvDn6pWZoz5d7NltJHefieuxMHnjlezulnxh3+8My6LAVux48X7lPD/jf/
++zNiuPe93E/HTxr002Bt+sVsffgwOtEdr28LX0de68uvGnW1YUHH71k77mj
PuMTTe5yqGkRey8S/Hn8edqWR/8RUb808n1S2OZ98A0F0vc9lyPO3vtm49tl
E0NThey37eJ5VTfzGhz/1u/Wn4n//Tmjj+dF+dSfPjtHfcDa13kQjh346zI/
Wv9muPpV7oPz+ENTHr/H+KU8fEnCJ3UCy8Q53Aen/g1O/3wzV6lav5WPtPd6
a3zFPW46ruGM07T7mkXkCr/gcM+ynTeLH070ZfkDW5jv4FXrZOv8Xba6vhEX
o3N1i3X7z8q74edL3y/pq1Vv1szUNdz+0++/7wyccmp2ahfW6zW3P4xaODeL
L18ue887vO2hY8e/SlHGmeFnPxS/oXEFOqM/Ogf5iTfQU/c10FP9AP4BnWvs
fy8oYYWz9l5UHe/kX+qXWhh/qPFJjIlD4AEjdx6puSS1r4bRDb74629L3v2l
kC+tiSvguac/qHjxf0V9J01cAR//2f2R56cH2XUb+Os5rq8u+maIXbex/O7h
LG+cC/b5TLzHc2l6slbbAYFZfcPNOUb4sETPvz8Q6ydOqOCnP7OeoP2T+mM/
fEr9eytyBjlNxA/8POllP4D/GbTi5tS7/+7Z0kfisQ6/PY/H4PSfRVdj0y1p
fcFBZ/jKpGeHjHbW2vkCXmjC6qxnR1T3kW/CyTfxP3DmC/wM+uBn1vqJx7AD
Vzv0W+wQP8CJH1gXghcw9SQOgROHsF4EX1W+xr0bnd04BP52zX6nX4u38/DA
9ZD2u1we+U6VP75r78Yn8A+Lttl6NNitP/1B/S2c8ZvMD+/rZ98txo/9qX72
45L7sY9/hg/9L16Nc3L44bQLv6Htgqt9OHZYz8TPsJ6JfbufJfY1r8c+PKDe
yeTjG7p28FdqB6524EvujDx8ualrh/GrdjRepR/CC8h4gfMc6Ydw1m2oD5z6
0A/hY5L/mvBiZzdOg/PcqT/zoNYfrvMI3M4jfjjjGs64Xu2Hsz6jv7vfD0cH
ODo0M3kcnHu9W/jhlcw6j8btFV7Jb37CvKblD5p7XZX/7YejP/Oj6g+nvUuN
f4Pj3941/QqOH65p/BucfLmY6Vd2X8P0qw7Gv+nvojMcne+Z/ganv+0wfg9e
1eRlW8x8yjwbVf/To5cPFvNxDyac+6lZD4TXSNM06bYGNX3sp2j8EGDW0+AD
TdxFvK3r2Htl3fiCWTcmnmf+ZT2Z+UXXnxm/yplflOMHlMf4ic/7Sjz/iYnn
8cMaHzLelSf3E89P9VM+l8nLmH+X5B3X/6+E5XxZzT3a8BvmHm3iEPjAa4WK
/RRV1XfmwRcTRsz2nkP7vn3aRDkf+Od23aPI83uyyLs1ziffVJ7Tz7ou8S3+
PPPcZ+/v7LPPXfsV8TzPq86sxxfeu3DN7uvB2ddjXGt/4/5xdJ4dcuhIbN6a
PvonnH1A/ID2k+YmflbdcvrpD3At/8CMX+UZzLqT5gWnzXNUXjth8TXn8821
433OmlZVH9WMdTpuvjeg5cJ5nvi/pHlfQzl5N7rZe29lvSKtWa9gPZB+ouuB
cPwk4xTOPMs6ocYn6APHv7Hea89HVa1V5WJTd56FM8+u9rMfwXwK1/lUOfW3
68Cm/vv97GswD8J1HlRO/eHUHz/GeCFOxo/BiWeIkzWOIp6BM+8Qt8DRmbyS
fvJuuha7PzgX4zCOGBcZWrze/a03KvnW+Mkj4NhXTlwEL2z2X7B/fGGTb+Ze
iHXYd4Zfv5xkzPjUcU5ds16n42ip8WM6Xthf1nx5klmPop/nMvc4s07F7xYK
7pX+wJvRzqrvfdUrF3DfF5hZzXf7QbYjTll5jyCteY+AvA/+xb69ASdrXLR5
Mb/b90nbRDvrRDrZxc+/t/n3//z8jyZv5bnU6bYr7tGTk85psz8F/zzp0Lg0
X8VYf6h+tZzp5+on8XvKt5lxp/4Q/6a8nMm71R+W/3+4PkfW4ZXPMPsymu8z
v+hzL2rW55U/NOvqyuP8nG+sa/ytrs8wXpQTr3rOp5l1D3TjvIrP7EfDa6Ut
nDfj11cd9kN5vkFdlswbVvuaM8Xsw6JDObMPm928vwPnuxCMI7sPYvavf2/c
aXNohMufri0T9LRUnNPUz7lT5k3aC2/+/5THvylHHzj7sPgH9mGpJ5x6TjM6
EOeXFx3g6JDDD39o9EFn9ve3mN+FPzG/u8rMm/TnWWbe5PnCeb4FzXom/bn9
hVITRk284tw17zHBS5r3ofaZe+F5jn+Ye+FbmjjEMx5N3Kic+R3O/D5Z/F4e
8XvUB97erNPCE7115IPiNd177akn99r/JfX/Xe61xy99kvb5PXfs06m/Yt7B
L31xuGKjTzMWcGLMup/6qzfMPqBy9qdUH+YL5TvMe7XK+8r63m9mfW+K6JnP
6LZG+skco38uP3FjBT9+Ev+mfIDxP8qJn+3+b7qJqapsueZ8Zd4HhHcy94U9
Nv5Q/W1Gs3+nvJiJJ5VfNecK7Hsi6Yr/UK33NSfc5BHqt8nTld8z3+lS/rnp
//irSf+d/19l1/nhLb9dHhA+7bTdX4C32zhkd6XgKGek2UeAz0p3qkKtAtec
EOPndV7obOJq5ZU/aRbY+Vvvew3/mO+rK58h7yP8OOPLlg0rHPwkWt5rqG/e
a0gm7yNEm/cRAuW9g27GzxAX4Z/57mIKP+fw/Z2393eunvGIP9/+9OI/xw9E
OKwnwEuZe6lYn7dxb90ql5+txzJO4SvNPVOs/zMvVN3lO//DjX8c1ufhQ94N
P/bT0UvOfeM/4ZPNfUmMdzj70UvMeLf2q0z/c8Sb7j4m522mfjM+bmHyQ/Z8
Bbx61g9T7Hn3kvV78Kolu5U9cuqKnRfgac39OMQ58IvtG2Vbny7OngNhXis/
cfeNXW322HM48EQpOhW5W+yiPQcCvxpatW7b5lecmma8w6PNeCd/hA/6NuOA
yKzx850Z7/BHDytk77w21gk08wjzY/7NZZo4n/zu/GziXsv7Xv+4QMEL1s/D
2w9MXrT4ySjnivED8K3GD7CPDH/v54ij6T+Kn8dNXAdPGfMg8be7Y527xg/o
Ol51M96Zl/+81CH1N2+cd7404x3+986eWyOaRznDzXiHTzPjPcDEmfANB2cX
qloiPg4xcSO8/eI+x1pFxDodjP+0eZB5n/qIGe86f+XwE49tNXEF47Tqlp3J
K5SOz4/8vKcT4ycuDTT2GUfXzXvcnP/UfS78tuecmJmXaW83c/9FJePfdN3g
sGmv8ntmPKJDOfO9xFPmOxvMF3z35oCfczWcW7bnoHYU2Xny05pOlKxLNDLr
EqeNffwt9vv72a+Z7mdfBjvog50Iw2kvfPG8FTfiWnvXr3junjjE5KE6L6AP
/QH71Ad/BecctdohbtG8g/hZ68l6nc6zb/iZL+g/ah8/zPNKYr7j8frRxCt8
k9z3QGuVW9E1YY9Yqxv1H7pi4OZZ1WIdzi/BOb9UTt6b22DW/RYZO+g2xNi5
6mc/LqmpD+OlpqkP45p2Ma7h9Ac4dvBLNYydBaY+9JPBpj5jTLvgdU27mpj1
dvSp+0XwutQprjqcW2a8LGlZuMzqXy7b7znoc+S7DZ5z8ny/SzjfmVHOd2aU
850Z5XyPRbm9D1o4319VftyP/6S9jKNORUZt2B9z2b0nS8aX/f62n3uflVN/
5dRfOfVXbu8dE95J5gu+v8Hvan7B7yrnd5Xzu/7saF6AHeXY8Vde43zK++Pq
T/huBuM0sOKSbDe/cu8ZhE9J/sOSNi/cnwjX+47hT+aXHZj3O/d7JnC+Z4IO
uj5Du5RTf+XUE7+x6dHwAVteqCdc6wkft3Hsod1T3HrCqSf9QfdNqL9y6q+c
+nveAzX1tP5N6gnPZPpnWT9+nt9Vzu/6K6/n2CmvnPIan1DeH9f4sKGf9QR7
f7qM07f9rBvAdXzt8bM+ANdxNMxPns5zYRzpc4Fzrzf2ddxhX3lZP3k6/Zlx
qvdow7U+cPoz9dHxTn2UUx/lj/zk+6wXEQ+MyJG0dIbx7nfz7HcP+v9S7Wkj
97tA9vsJci82XNtl1z+NP6FdGl/RLuW0SzntUn7cz/oA7SVumSv3gMOr3Bj6
JHUN13/C9f5ruLYXrvfFw/VeRY0D0UE5OihHB+XooBwd8GPd9qxIXrOEex80
nPuvKY//2ZZqRHT299zycL0/Gs49y4x3eKn046IHPXTvP8Jf/Xnny4qd97nP
BV6zzsGOXXu79uF6jzOc58Lvwrknl9/F7+18b+6W9OXd34XrPctwvY/YxrHS
H+D4f+oD13t74auzpmvTL7cbz6h/Lusn37T33Ru/veB/Kcq1WeLeswzPHFW6
w7nqbrvg2i64tguOv6JdcG0XfELy6C5JJrvtgrf+6/m55Ud+1iVGSB4dYvJo
2gXXe5bhes8yXNtl9yOMv6JdcG0XfLJvR/fxM912wZOYfV7apXn9cT/5Pu1i
HuzzU8UzFX3ufUnMd6fMfZEPJE/ke4/YoTzfR7X3gZr5S++h0PUE4n/mkR4T
nn9H6G0/7wc19LNeau8LM35Gud1nl3tdNf6hPONa72NlXCwbva7koRe+367r
D9ix5xuNHbg9pyfcnisTrjqgG/XXe8SIi7K3KvLhm5ElrZ72uyW3nq/fPpD1
H+7LoL089wKhhxOkznPGtpfnHmXuNzzvZz2H3+V5fVjg2Tml/bZdlOf+Pp6L
xvPD/JyfHyHnzFO/9fycOb+r8xT1RE+9V4v68HzRGa730WBf+zlc72GE63eh
6Sf6nWr6iY4XuH7HXv0b9aRfab/V9THsw7Vf0U/qvvN8HzBIziXul+8Sw1Oa
94Pwh/QfvWdE43P6icbh1FM5z13j54Z+zp/Q3zT/Qjfs83z5XX9xu+c9Uzmv
pfcX6Poh9uHaH6inlodreV2HtPeDSxxr7wOV74Ly3BkvMfOr7B7SYpW1r/kX
OutzpJ7KqY+//Ev9QG5Zn9f7nWkvz4v+hj/X76kyXvS7qfacoXw3leeu30GF
t2o3sneDTZesHdqLnf8DqHULOA==
   "], {{
     {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFnAcYVmPYx99z3jMpZI9QyqjIiJJR2aPQUCJJZioSZUZaCkWSSpokycxe
IXtkZK9UyMhIAyXp+/++//Nd33W9z3Xf73Oe85znPOPe96l7Vp/2F8WVSmVm
VqlUBX9JKpWTo0rlMcFZRaXST3VDdO07/T9M9dME71X9Jaq/TvVfqa6VymYq
7+raWYLPCN6tTr8Q3lLlcLXvo/bXqP3LwvsLHyZ8htp8y3WVP4WvVpmka1vq
/qsF+2pAF6SVygrhnVS3lcoA4ZeofnvVb637Llfd94JHqGylslx9/K5yLe8k
+KfqjlEZo+fdpro8r1QmC79LeE3hrdXPfrp+m/r5SPULVP+QxniH6rqorNH/
DoLnqTRR2VHXLhI8U/furHtu0vVrNZ6VetYKlVH6f4/gr2pzpMrvKkepbKtS
X+1v1/Xr1b6e8LHMg/Apeu7dwjdRn/eofnu1vVpwB5XrVX8V7yt8mPArhW8n
fKjwK4S/ome9rHKh7nlI9bsL3iDYUuVltZmlNg/p+t4qP1c89p8E63O/3v0E
1V8uWE/P/kB1H2osf6vNsbyrSnP9P0D1Pwv+oXZV1Z2rvv9UiYWfI/iGyoHC
xwuuVWkufILgdrrnOfX/nu6brf+7qH6I4If6P0/1Hwi+r/HtqP73EHxPpbbw
3QTfVdmBcQoep7HNE/6q+jta+KPCn2BcifFJajNcfXVTn9cLPqA1ek31b6jN
ccKfFT5XeKnrJ2gMu6rMEp6rtBF+n+BWKm1ZJ8F2gnuqtNG9b+ned3TvXnrW
DOG3Mi7V/6frT2gsxwi/X/WPqE1TtXlM+GS1GaZxHKm+egv2UVmp+lN0fc/E
az1abY6Ojc/SvddHXsO99b9d7HVijZ5X+ybUCbZQPxvr2qGCTzL3kcf8hMrZ
KidxDnV9U5UThU8VnBLwg3RPJry54CTBiWEuHtez56j/+9nzqhsf5qSjyikq
emxlLedP+HeCzwh2VtGvckbketo8xb6IPHdH6xlbqp+jBI9X2V74cYILEvd7
LPun4n5Ws36C3VVqMY+Cp6n8JXxlYvwJwb8rPo/fCp4ezmY11J0ezil069Rw
bzPBbirrhL+uhnUEG1Q9R8xVA5Vt1O+tqh+k+isj065B+v9s6Ae6WCt2+4+E
bxN7zr+oeM+AN1I5H3rA3Ku+a5g75oQ+Tg79PKqKRRXTmddUeqp+Sz33VeEX
CD9B8/OC8MOhN4Jvq+4S6Jr+91e7wRXT1Smq6xX5fXZRx5OF91DZvOr5e0pt
9lD9sNDuF9X1Edxf8Fvt177sm9z78Wrhjwjuq/avC7840IbeYe99lhh/VvCG
cP1Q1X+v/1cJH6xnLk3cz0Thc7SHvtX/K0rRHsHuavuNYJ3Y9HOJ/r8Cj+AZ
grVj75kvK94354Zz93Sgt9DdSzXWLaCZgp/rGY2E7yd4usrZwi9WPwern/6R
++2rdptDVwVbak4HqH6m2rZVOVn1iwMdov5F/X8x8RyfLPiSSgfhHQX/gD5G
5nNf6N49BZsIfqrSQPg+gp+pNGT+BI/SPV+zRsIPF/4pNEr4CI1hFXtBdR/o
rL0n/D+N7Wj9X8heU5sfE5/jRwR/TjwXc9gDav+m2ryved068167WfX7qDyt
+mm6d2/hTwmfKvwI4Z8Jf1J4Y+FPCp8i/KDE/Twg/Hn184zw99Rnc2g3Z1/1
+yauny78MOGfCH9c+NzUdOJB1W2hcqPqB6h+c/YEe0j4O+prJLRRfccqW6r9
ZbreWe85mucKbqT62qq/VvUPpebJM4U3VHlYbSaon4fZu6q/SfDZ1HToAeGH
Jp63R3iu+qmv+uGqO0TlXdU/XPUZbRjOdYvEfHyO6l/OvM7HagwXp6a5FwXa
zHPv1fWusc8DZ+Ft3bOHYGPBj1WaCW8ueKLesZXwkwTrqrSETwl+omsHCj9I
8CX930r4rurz2sh0E5rZTs+rr2ecJDgu0ARo1IzCvG8vtT9L149XmcZ11Zfq
rwPrrnHvQp+Cp+j+BmrTSfCayDQReni23vcHwROYP7Xbh3EKLlTporY36jxu
m5uHXCz8fsF6un8YfFvldbWfrec9lnkOjlLbZol56H2q30T1O0MbWSvhs1X/
rsb2uPo+Dl6q+ntSy2B3sR+h+/BV4fsnnv97oLGp6ctJqlupZ+wr/GD100T/
X2A+1CYVfrnwC4Xn0BnoF7QltUxyr+oyaIzqL2I/Bzq/qf7flVqWnA5N0jgv
Ut2b6v9BzVkHlT1VPtG1/1R/JmcoMd2GZtLHvxXzi+7IlILHJ6aX0FDo5zo9
71R4oeA89dtJeDc9Zwl7Ue3uFDwgN03qp3l+Tm3OZZysr+qWCm/NvGqcLaB9
gnVz05zT1WY7tX9X/YxTXQvh7eBvyKpquwDaq3K/8Iax13sfXduNPSA4T2PS
Iys7Cr6ootsr2wm+wDzCuzinyI7C6wjOR6aEh3BGVDYSvrPgbupra2ieYNvU
+/e4xHuavf254N4quwpfIvia7qnJ/hR8U2Ub4TvA11RqCK8HrU68T+H7TwZe
fprgK7q2sfC6gh9xblVqqrTS4M9U/QXI48JPgn4KP1QvMk34JOF7JN6Ht+ve
3YXfJ3ys8BZqMx16Llg3cftRvJfwWfBf4bsKv1f4GOTnwroAOsFvumeM8N8F
J6XWXaYk1n/Qg5qpbW39nyB8uO5tnpsvtxOcmloPmgp/yS1XXJNbR4KHNBW+
k65NFH4DMq/wO4SPEH5/ah1hhuqWI+8y54Lf8gzhhwj+oXI8e1LwO2i68EMF
v1c5WHgLwbp6Vi64s+C/6usg9XkH+139bwovg64Lf1X75yPBV1SaC+8ueJDG
d6Wu36VNNF/veaf6nMhaq/5I4ScKHxtZbkNmOyE3jUVnelh97I/OQzvVfyj4
seo7oSNBSzPLiciL/1QsH3UN9HGwrl0qeKDabqdx/KD6bQWHqr/BcdDr9H8J
8pLgINUNjH3ON9P/hZz91GvAWqxTfzX0/3PVbyx4rdoOiL02twneGptm7alr
a5HfBHuo7n7he6uMFn5zbFqzRWEdrr36vlp1V8beE1sVXq8OvJ/u/0X4ToIf
8w5q86HgLZrLzyvm17zT0sj66iO6tg3yWuH7lkXWDZGn0PvYN3V0z1TBkVrL
rRPz0OvYA7nbvKh7H8tNk1vmfqck9v/VKqsi6243qW5dZL67SeFnPZT7/f4N
bRrAj9X/ePX/uK7VUd1huedmDe+l8ofKcpXtVPZI/YzdBUfFfga8fF/9Xy+4
D7xVfX6lPp9Wn6+p7pXIOuEYXXtM8Hfk7tz7c0zutV0cWX8/Q/2NicyPewvf
SWVf3jO2PIZcdntk3YG9+FDAD2B/q01flYOFX6l+lzOXueXDyyL/P1346Mg2
hfXMhfCrBXcQPDry+f9P45sh/CvBrpnlxiZqk2j8H6i+KngFfcamWTlrL5gJ
1incD/SnXuq52yW1PLt/ZBvCOPW7mPcQvFB9PBjG/3Bkfaepyssq8yLr1Y8W
hvD0/mp/aWxeMCfwPnSdC1T3APPPfo1s0+AZt6Sev1v1rDm599qW6m+s2qex
1/tpaKXgEYJ357bbzMAWkdu+M5P9L7qQqq8p0Mbc9Hqy4F65dZXbBG9Sm2+0
5uep/zNy86hGesaXufUJ8A9y69gLBM8uvddvVPvepeng1sL3yc0H4Yfnlt6j
7MNhwo9Vm490/b3cOvv7gter/nk9t4vany78K+RB4RNz8807BV/Mre+/JDhB
5f1Q/3zueXhZ8Lnc54g22EOQ2wcKzkcHCWPeSP2/BE8rzI84j5zLFmEPXSu4
sdq8pTZnqM283HYH+h+k+kOgv/AF4QcKnyv8cBi02jyVm97m6qdHbtmAPcte
bpXb5oDtoavuPU9zsqfqzipNI4YVplfD1M/2gpvElvHmVazTbx5bbj5Ybedz
bjibvI/qX8ltD+AdsY30ya0jIQdenNumhPyMvrtXZD3k3TAnzM1+6nOu+rxb
fd4WWYbHlvRCmFvmuLXKq/Av7EyFx/NObp0Puove10r9fKw2j6mfcZn1ixFq
Gyfmvz3RTVQ/Qm0vh97nlqeHMJ+5+dMgwa4q69V+amT7Rmtooeq6a642Vl8D
1Wez3Lr+IF3vpvpeqt9XdXeq7cTIvAk+mOp6pOvb5LbR9M+tkyLf98utbyKL
XwLtz60nM7YLS9sdumIvLG1ruF74UF0brzafCp6S2+6BTg8/7BSeOy81n+wK
v85tXzhV8OnY795Y19bo/43CrwjPXaa6swT/Tqz7v57YPjdU5Ufk16ptS2sS
6xbDQz/YCIaFNndHfkfaoePfF9kOCT27L9DGXqHPOhXbXrCTItthwxgYWfdm
ruivW249nLpPgg15VmQbwQZ4WmTdHp1nkErdimk59D2qeH2xaXSExqTmC7dU
TcNvjczvr9K1UZHpPHsAG0x9PWt54r34nuBbKu1V/3Xis3VTZJkb2wtjQM5v
VLWehW0TPYx3QQfAVjMkstzOmAdHluOx3wwO42ewtNlS6H6cKeix4EiNeWZk
Gwj8Z2bgQc/G3pvs0SkBsmenhHllX3wYZGZkZ2wfPOdTvdcHYR1Zz91zrzF7
clvkWOHDhU+PrAsuVN0z+r+/xjGw9D6dEFn+/iz3PqfPp4Leyfu+UfU6NBQ8
N3Zf9fR/99CGa+z9O8NexfY0ObzDqsT4x4ltX9jy0HN/TWyrw473R2JZ64fE
fA/+De+bXdg2fKTGOVL/74m8VtCG+wN9eDusI+vZOdy7OsgADwac8zQpjKdH
wNlDv4TnLRP8MrHNB9sP/BK+2VhlRWL8J8GxqcfAnukUzmcCTdM4X9W1Ozjf
qWWJy6D1urgJ8yT8mdhnlTPWPbfdfVHu88k5HQXdy61XLmG/qM+feYfc4+0R
xg+f/1R4Dc5Z7j3UMzetYv9ir/pLzzuH/QPP07XfhNdmzeFDkeWWqSqXC++V
W2b5LLKe9UZhPgg/PCR2G/bu+bll+aWCX+fW2WsH2sXYTsu9tqwxsspzkWkB
++qDxPTtfcHHE9tlu6CLqP9+qv9d///JDXeCv6i+WexxIx9gb0R26BZoyMjc
8w89RBftpDYdg67xLnZweFDqs9gznE3oU69A0zjHF4S9Da14R2O5EkU5sV7W
Q/NW1bstgsbl5qvYYLHFjgx7kLnuEfhy49wy5nzhWWQZDdqFXyRF30auEj46
N2wILy18/dXCsjB2/kSld2Yb5r9qc1xsPvUS6xpoLGd7XGxZDXtKfbXbSdcX
Z5ZxsEG1wm5W+B276PoIlc+xoegdT05NZz5NDJkT6MxduffA9Nz8cJD66ad+
ssJy+GzVz2Lthd8L7S28D6exL3Lbyi8U7A1tj6zbsteQpXmf87H3qpSRacg5
sWkkawUNxZY1N/LaYIuhLfuwCDSVNtC7d1T/tsoLqmsT+oDGXqb7o0Dr8A0h
b7wZ6Gf3cHZ2yG3T7Vt6Ll8KtHVQWDPoGDrIm2GN3oiMt6gYvhVwZB58Ldj8
kVXwc2Cvxt6I3wW/AH6Wx9nzFZ+JZ8O5gEY9E+gbeg76Dno5ugA27iVq/2du
nQiaAM+iH+yfX1b9/JZV+y0Y+2rVvxNZ3oZ+jc2t6yB7Q3NejUxfWEN8ouhT
rCvri58UeXnr2LbmDZHlyQcq3pPoafCV9Yl9AesE/0ncJzIDe/aV0AaZn71/
Xu79xz7cBXtb7Hlk3DsGWgRNYr5fDnPePPTD/j8wrAVnA1n4OV1vJviXnvdi
5Pdlj7BXkCGQ57vDezPrKRfDi4RvAX8Tvnnq9+b9r4NeRPYvcw094MPIelOU
BvsStCr3PsXmRr/0/7j2+3uRdRD4DbrOJ5F1vUWhT2zc6EP4HPBplKnHc3tq
/Yj6XuqvSO377pN4P/NeUehjURgbOGM9PDxzfnju1qnfY4rghsT2wPMT63zY
PbFXQnehv/BX9CbO0O259bZvIts9BmocfXX9ycK++0vRHdCZsPOo77HCZxa2
D60W/DHsH56NLvhlZLsHc807PqE2NVP3OSG1ngjOc5qFdXwstc4F/kJmPeh5
eK7wxqn33YOp9+C6sA+xd2D3GJjYhoEfGhsFPvyVKpORtYLt4kGhDdBHBWcL
7pXaD4t/gfv+iWzDqa36m1U/PbVPHj7Lf9rwDO6/r7C/Yp1g/dQxCNjCGob+
eQ5+/BWR7T7g2FJugZalHte97NswVv7/WLXd8gTBU6D/gm0FRyXWn/Dn4FfG
v3xCYf80furjhW+PH6Vqv3lUNY6tvGbV//8Pr8GiV/2uf4d34fmMA5vMbmFs
jHFlGBu2oLzwnrpd674QnUptDg/0H1vZP5l9oT9Fph3sBfYEtrgdw3wyrwen
XtMnU+t+6IAj4J+p3wsfzRHC3xb+DPbGzPztrdz2JuxOg9WmSer13C+1vBrH
tkU8m5vvoRejuxexfUJNU88V/gjsAPQ/X30/mdu2h1++Gnuv/F+/wEdS69rY
PLB1QcPx7+I3qhnbd46v/JDwXrzfirDerPWygG8b9hH7CVtendTXZ6S202Gv
u0pj+y20Yb7qhja0ZayM+enC12mHnXGbcN4599gMasT2vb2ee96Yv73D2eEM
3ZiY9+E3a5W6DT4dbAXYArERvp07HoA5h5fhw0aHxw7zjtq/qz7XCT8ttjwG
j8Mvi9yNnWaH2P7IFbl9WNj/P8/Nhz9jPbEZIPNUbKvbMbafG/sCdobRiW02
POuY1AX8ecEtqqbrHwc9rF5svn93YR/R0sKyzUfC+5Tum2dglyFOBRvDg7q+
c6jnudiBkPfxh3+V2+fze2Yf0F6xYykaBh0HHfm92P4UfBuNAo69anVuXxs+
DvQedEJkSPx06ELILchU+NqRq75Q+91iz0n74DfBf/K36hvHjp9BtuUZ2MIW
YAuLfW2x2uwTW0forHv20/XTUo+F9tjRaEMMzze535V3xq6HLIF/Hdsifn76
wVdF7MB+seWEH3Lb57/PbZ87SnVHCq5AlxZ+iuDPutZUbX4U/FjwI+ZKpXOQ
z9uoXWu1O4H1wqaITVL1y9R+v8J+hJP0jr+oTUe1aSd4qcZwQGz/wbKq7aj4
4f+sWk7Eh49Og30Wftk/4MvDmLkXHaSp+v+C9xK8MLO+c4DwnqntuMSILdT1
w1WGVIx/rXJYbF8OdosstyyFbIJsg8xF3AMxDcRFMFfoYgPDWrO+UWLfxAXM
WWyf8TToV+r/N6v+WMFjYsfQLNf9R8R+1uJQf5fq+6a2ZxMH1Cixj/UO5ie1
nY3YqH/Udl1susn69g77/NbU8SPorW0S7wX8vScm1svwqZ4E3Yqtp6/KvX9+
0jxdl3ovDBQ8O3as1y4V+xBbhz3/bGF/8jeF48TaxvbttU2stz6HjplbJ+Ic
MV+nxI4DOTm2X7VJeAbPwt/cPrFue01q3xD6GjFkyJLtY8uo+Nyx9TMvx6j9
NzxLczI49X45Q3BIwAcHPRu7z2D9v0V4l9i+AGz44OhQR4a9/XJq21jnsG+b
hX2MPIrdjPGjI29TOGaMeIzOied7RLAzMbbpyBtq0134htx1XUP9rWE87L8F
mWV/2jxW2L9xWul9dFbYS88U9v9/JDg9ts6DrDYqtW6BPYQ6dCdkUPSh8wK+
NJw7zh+61LlhrbHNgKMX3Zha98XPvCR2O9r0iS2Xs+8b5Ja7bwl6A3oscnzb
3HJ5jN9VdT1jr8fNqXUd7CGjU9cTxzI/3IuMSpwnfjH8i5PV5qrYMiX6Zb/Y
dgZw7A7IiOiR2DWQI1uE+v9tE/bo8tT0lXmbFtr2D+15fq8wtvGp+0feZiyX
hPGgyzOetZn118uFbxLZh05fNYJMjJyzWXj+FWFsE1O3R6ZNC8vm9LN97pis
0VrT1qr/N7acdn1imzoxKV/ongzeXbWMj6yP3nqg/jdlv+v6D6nPwdLU9Glh
oFcN1df82D53Yki+1PWPC+u+9IO+QF/8x5/6UeiTvr9NHQOwp/DLq44L7aG6
jqn5FzEj3PdWuHejqv/TJ9ffje3vXxrG9n1qOrow0E/8479Cg/TuexTe5+x3
6M0bYY/BWx4OZ/xTtX09ts3hndQ8k3iKv6uOhThD8PPY9Bw6TozEOdDB0nzk
s9g85SDh38SOif0ldezu0KrjJr6E/sTmC+Dwgk9j38v5P0rtjhY8U/ctCjh1
2JCfiB2HuTg1nVsE70g9B9uqzQhdvzG2LI0vCN8qOsy9AUeuwqcxJrYc+URq
HH3nkNw+0kcFH9D/G2LrJjULy4BJbhkavza6ea3CMmGKjFZYfhxf+jm3hecS
I42/G30TOyE4/eDPpR/u3biwfjOutDyBXMGewM+LPxvZFzl6bBgzNB5aD30n
HmpR7DhUziBrSjzwojA/3wjuybrHjjNBhkKWQq5Cv+IZ6Gj/BpxnPYqsG1ve
jmLj+O/Q8/AXI78yh4wHOZs4berRTR7WPSNj64bUjQrt6X9keBZ0AZs1thxs
rNhaGwf+gh2EutVay27IUVX7VLFXYpM5jbgW1b+md/onNT1AN++Ruf3rheMj
5saWjeAb8BJ4B/YbbHrQ4qRqne5E5KfMfAbZ6eeq9fSTBDdUHYN0nuBPVT/3
ROz3hffpEcQOIUPAAwUXqxzDmgj+rtIZHosvLLXdYlJi3gffw3Z5RmZZqwnv
onY9OGuCa1XOZ/8LrsEfK7yb4He5+epI7ZN5iW29xGESu4T9Dpnsr9R8CdvI
osS2kZ6CCT4MXe/NeyeO4e8l/I7UdHxy4rPJuURmWq9rvQXPEfxXpRdyi+B/
KhcKP1fwN3Rj4R0Ef606nqq94MLE/Gli8CfgL1kfaAs4sVvPx44tJ9bt0chx
8NioKMTDw+egY48GGoutHpw8gp3z/7dDE4s1J7ZNn33E/kE+GRH2FfgBVT9n
QWqZDhpyV5BhHo8tD3QMNBC7NPIh9cR+d8q8X+oVHu+8MGZ4HHQS2WBB6J/n
YNvBr088W5uwv+qoj3u1ZvUEPwyyNrI38vSbid+FmFVifzKVrhXHrKBTzi2s
t70Ymz+xf7FRM6afgsyP7E9MPvPGO56Y+h7iFr+uOu7xMMGVoe/OgrsWPiP1
gr2C9WhadWwMNJQYA+wrIwItxS89PLY9ol3mfX4htD/zOeuHr194F+GXCj8v
87P6Cz9f+BnCL0P+T02ziOU8Tf9r6ZntC8eJ7UTsmuapf2J6SSxq38SyCTFQ
TMA19M/5CGdzrer/iJ03Qs7I0YXtPzWQlTLHtQ5Eriyc21FV/arY+R78J7YP
vnY5slPm/dxXeH/hPYVfLfzyzGfhGmxvmc/CAOFvqazX81chs2Q+F9fynMxx
j0OFj8ffLXx44Xha7DL4kYm5jXTtn8IxiJydi4V3CXTvT/XbPTMNuaRw/Bz2
qD7CL85MH64U3jcz3bhKeJ/MtOIK4Vcktm1kzFli2kwMLzk65Opga2M/bly1
7ffUwnuPtVhV9XqdWnVMWlH1Hma92KOdhW8iuGmwHXcujLcNdrLNwr5vlP+/
L4U20Nzjde8P4Trno37Yh+xH7GE1g30sCjj2scPCHt4B+2TV+tG2meUg5CFk
o92CTwHfwrHqa03snA50pm9j602rNKeThb8U+OSSIP8cUXjvrOFdM8fO3aR+
/wpzxX4i9wk78JHIAsKvFD5E+CGF+ycOtqXKD7FjPpmDWuE9/449HmxeS2O3
OVN4j8S0GppNrCR1h6mPixLzNfjbT5zv2M9eD72JHZd2Q+Y428GFc7Gg59cV
tjmgH6IbEocwO3b8Z+tQj/5JPAn5M9jiOgR5AB0Q+xJ5EfgXsAlxL8cOuRv5
Gx62IMjijO85XZwQ2zZIn+SfYBdDxngg9PmCrt0Z216ELYw4lV2DboQeBX8i
DoV67ErgE0IbcrXoB99lHsaMvP60+ro9tt0Su+iwQJeImwEnNu8+Xbs+tl33
4Nw2vznBBoPshGxE7Az9EDuFbXVmkGGQW8CxwWI/R0eCBmHnR56DNuGLYa6w
BaOv0AYbO/IdbfAFIAcid2LTxE5IXhlnkvcYH95l84Azb8QeMle7RY79RhbE
/nRU5hj1C/RerTOfhZ6F5QFsPGsF22S2A/cqHCuObIjvmlinbYXXFvy0cGwx
sU/ErnfTvvhasH1mGeYi4W0zy9u9hR+ZOX6+h/BFheODiYlqFORJ5Mp9M/ff
rXDM1O6sf9X+O3gpvui9dO1DtW8seHDm+PyzhH8fO78JnQQ4NeDEK3FOyRnA
n0Y9dl30smmxzzn7ZVLYM+Sw4WvFbzo8s5wzSP1/Hs475x5ZFV8s8upBmcfZ
vbBuiK0Df/6LqZ9NHt4RVc/nqal1WnTbmwTLwjZebOzkFECfzi0cC8VaEs82
IXOexQ2F46Txq+NPvzPIamenls2IJyHGBF//hfp/Zum8TfIL2qSOG/xN/08t
LcNxVvB/E++LDHFWavmBeJihqePRkeHOE3ykcPzjGaVjiJF9b0uDnBc51hF5
lDNNPOSfwWeH745Y6GvUz7TUMfnXsb8Fa2em4Ttm9lMTr0LcyidBziN+BBr4
o9rfUzimgnh89hlx48jx5IThu0enny84N3GM/qDU+UfInsQUE7fNeSIGmBwS
aBW5b2uDTxPfJnmLxD4RMzU0cbwcuRHkMKCnEYd8d2I5ivjemsK3EN4vcR4s
+bDnp8434LwSn4zsStwI8SP4evGl4lMdmzj2k5jPScFOgr2kTW4bec/S+T/Q
TvLmiCPHTkFsM7lA2OCPC+2JVSHGmHg58l1GCh6T2/dyQWmZHDsG9oxxwU6C
vWRM4rhQcl7J54GekktI3Dl+LeJUif/Brk3sAHEyxMESD0uOCrkqiwT3zJyn
+U3mGA/iucnta5I5N+o7wf0z50Z9L3hA5rytpZnzGbFTX5vaf4z9iThG4qXQ
R4jB2z1zHsGXmWNXiK0l7rRR5pzQhTwncy7DV5nzc6AzP6WmHZzN79CZMsfP
LxNsF2QLfHHH6X9r1a9ADs0cb79csGnmPK8foFvousJ/hLZljr3/g3fKnDfx
deaYMXRQ4k/IMSOnrF/qvDjiuXsJvzl3jglxgMj56CqcSeKdZkeOS8TXjz2a
+Gjix+4VfkPu2DVi2G5IHQ9GvBa+EOKgiHmDuc6tOt6GuBtycIbAe1LHDdaN
HRNLThlxTcQ3kWtGPBVxWOQfEjPTIXWOH/6Jq1Ln8pHTd0nqXB54HDyT2DPO
7BeJ87Pgs/Dwx4MNBFvIrMA34Z9zgh0Ae8BDQa9Hv58beDq8vZXm8RC9ym+C
uySOoR2QOHcImwWxa1NL23HO17scmFleIzcKe9SbyBWCk0vbxc6EfwlfnVrH
Hyr8yNS+tuGl54tYxJtL5z/shOwmfJPU/vGJpXWec4RfI3yj1P5uYlaQAYlh
ObCwTjlU/fwlfDONdYPwtYVz1GO1/a9wznYp/G/0FOiW8DWF89sjeGzh3ELe
/bbSNlzstthpsdlij92mtC0DuX16aZkP2niJ8Dh1rMKlwmskzn3oX5pO/St8
v9J5esiZ+5fOXUGPaFI6lw/94pDSOXijhbconU84BvtEaZpIXvARpfO4xgk/
tHRu4a3Cjy6dJzZeeNPS+S3wrANK57cQu9usdB7OTfDu0nk7twifxpwLX59Z
D0IvGwDvLb0PyM2fUHo/ocOuL5z3Xqj++sx2Tu7tVTr/ivNyUOlcoJvVtnnp
nJ9R7JnSOT8jhd9ZOgdmd+ST3P7nHqr7l32T+PsAvxTOseG8f1s4Fx3ataRw
3hQ07bvC+erQisWFc6uge/cEnzo8/e7S+gA600+F81d/1f8fC+eO/pJZ7yAe
l5w/4jXJucWuX5TOJ99S138onHcKHfukcE4XtJH8SWRMcjHIi8MeRz7LU4Xz
MM4vbXcjnoI4+s8L53pBu74onH8FLf2scP4YtPSrwjld0PkvC+dxQee/L5yr
Dz0sS39fYCv88qXz8LdAVyud315L+B9qXwj/U+2XF86dWy18Q+HvGmykNiuE
l8L/Uv1K4Rsh6wj/vXC+0yrhywrnQUGffyucH7VS+K+Fc5+g4SS+8S2GjdXn
ZqVtasi6m5a2qSF/bl7aNod8m5T+FsNmxAmU/hbDpvCi0nn+mwuvUToXFLn0
T/pS/X/oraVzPpE/typtp0PurVXaxodcvUVpexYycM3SeaTIiluWtnlh9ziM
M5s5j7Jl5hwu9gb5Gvg58LcQ54ANeovMuUXk0ZP7cHpqPWRJ6hh78vrJIyCO
gtiJA8IeQG8gJoJ4+23Ux5BAC8nNJ0ef+H++J0A+QrfUdvwfU8cMHAYfK+1D
R4a9obSvsH7F/nHoJblX5GBBh8iLIT+GuC9kHmQfaCd5WORjEUO4QXBA6Vgd
bMGbZvabw39GlPaREVdAfAFxDuQTkVeEnxo7FTlrxDmQ28D4iIsgbuON3Dm5
2Nc6FfY14GP4WW32Qb6MzTvwR0C/iRuF9nwlfFlqv8zH4d3RNfCBTAk8BH0b
W8pvqe3kv6fWQ9BH4DXEShJvlgi/P3eeV1E4v4DYSOIkybkidqRG4Zw45AHk
AnJ7l2KrKGwTZpyMlxhNYgqIZ7wl+OzIZyFnFntEx8I8iPE3F3w4d37WZoVz
D/FJXpQ7PxF5dUDuvGDi7IhFxZ+CbwW/DjHA65BHS8v82F2JKyTnAlsuvhl4
S6vYsi4+8ZZBRyAW+pyKffL4uPGFIzPg1yaeFVkIPzX+aeSKq1P7Hgak9i+3
Czh0F18TfitiP7DP4MfGv46f/c3UvnXkqVuI3S0sE40p7TvGhzs88E50LHgp
MS3oNLeW1m/Rc8lLwpdKzDG6DH5qfNjIovjKiS1Gj8CHiz8Uvyj+evz+fM+j
f2o7yGWpffFtAv5h1evC91SI8yHni9wv1oWcv2Fhb9SKnHvyaPATkfdEjBm5
duQjEq9Fbh05drVSxwdWM8c3kiNHHiTxadgsNs4cL0RuIXmTxGWRT0g+4g6p
45Nytfkltx9sVOm4L/Qy9iexf/g38XMSj0H8N3olOiy6NDYuYg7x9f6d2mb+
SGx5CV8Vcib7jbiOg4Iuif8Lnxc5XPik0PvY828wp2EdW2TOXYX3HRrktwaF
7bqLw/kaUrW/DzlwGjy1Ylo9NfM3WKDVs9E9KqbV92X+7gp8h/fFNk58ykuZ
Y9LuFP5g1d9AqKW65zJ/P2Gi6l/PnK8KL3s287cU7ij8DRn0qpNKywnYeMiT
OzlzDjg8iBxwaMx2peNd8MWgh3fE1lkx/zpb5YKKeR+54eitxOE/mfn7PPDN
p4S/UjGvnxjsh/AydDpsOeRnPaP6JyqWtZ7O/G2HCfDtzLnzkwp/w4n4SWS5
cVXnR5f0lzkmDRnswSzkQQt/KAt508Lvqvr7DzVpX3U8C99JeAA5o2J57/4s
5E0XzhfGFkU+64zMec3IdXdnzmtGBpueOVcaGez9zN9quAu5KXNs2PTC3/SZ
J3yy8Keq/n7FVqrrl9kGzjcA3sz8jYKphb/p8xr2HsYsfHzFct2czPGEt3O+
Mn/bAXn1rczfuJgmfIXe5zvtjZWCV2T+xhTyye0q4yqWSbAtp8FGgW25CDZs
bNZ5wFcFPwv+BuzR2DTwy5AXQX4E+Win59atyBEjLp/4fHLEyOMin4s8tU6B
Z6FroJ9in56JLMpZju0bwEfzWmx5dauq/Tjvp7ah4ZudVNqXvSDIA/huXgpt
8Mc8H94X3w12cnLDiQ0g7u1rwa9SxwCAE8NAHALxB2tS247xj+AH4dtW5MLh
F8D/kQe5lv2FnMt3veCljcnfUd3wivWdGzN/wwr96H+/J4YtobSsj8yPvHdV
5u96IQeOzfyNLPSm2zJ/IwuZn2+L4ItBtxqR+VtYyGPYupfF5mGbZY6j4oxf
p/q1sWUM4nvx1eDDwQfE98HwneAnwvcDjSX+GRs+tvzRmb/rhY6G/+i32LIL
8hq2eM4IcSDIZTP0Lltmtq2zb4nv3RBb3sJvgg8AWn146e9csD9nleYZxGi1
Kv3tFc5gl9J7lDwRcivId76RfVLaFgmdPLn0t2Y4Ox1Lf0eGM9WgtCyNj+mU
0rYeYiPJFyLGjlxdvjPF97LwnzUK+4zvY7Qs/U0ZaALfQ5lWMc9rWFomxyfV
pvR3WKAzrUt/ewW6ulvp73HgPzqx9LdXOMvnlKb75KqjJ6Mvo5OSQ0IMEPnF
5F2TM7Kz2pxXes3IZz++9FryjRpyVIgfIge5belv03D225f+3g3n+oTS3/pB
DtyjtN6Bf+2Y0t83gU52COvEt3SOLf3tG+h8u9Lf64G2HFf6Wznwhd1L0x78
d/uU1vGxCdcr7f/G37djad82/sodSvvd8f3VLu2Px++2U2lfOP7N7Uv74/HT
1S19xog3qFM6VgD/5t6ldQ18MbuW/h4Kfrr6pX3w+OY6l7Yn8p26fUvbFvDj
7Fzav47P9H8A5a7+ng==
         "]], Polygon3DBox[CompressedData["
1:eJw1nAf8V9P/x+/nzvOprCIpIrSTolDIqAhNMjMqo4wi2oMSKcpMIiEhe2TP
skWZlRFCVtmZP/P/eva6/8ej8+i8zzn33Pu595z3+/V+vd/n22jgmYcOjaMo
ei2NIv2LalWjqGESRVupvkseRScHVSTXU/1W9X1aRNE3ahpWiaLPVO+jvr6S
99Ak36g+SZM8IfkPyRvrmv005h+N/VvlIdUvUv8S9f+l/trq31pt30m+WP1/
qP6TyiHqG5FF0Tu69xeSv1V/O7V9qfodKqs1djP1/6L+w1Squm9rnkHznav5
71L9V42vIfkejV+r8Q00/i+N3Uy/YX+N309juqt/U8l7Su4g+QDJB2jMel2b
q36z+jZR6aj+PdTfVW21JXeWvL/kHpK/0/z7aXw93fdvXXuK5LN1v1dVdlL9
So25QGO3Uv8/6j9RbWep7yWVbVS/XOVl1WtqzpaqX6px72n8v5qzrq69XGW8
5C3U/j9dP1PyFMkNJP8n+TLJ4yRvLvkPyVdJvlByfcn/Bo+Zormvjnztrir1
VV+qtk/Vt5vkbSS/IflzyXfrGb7W8wxUOUr1/dX2jZ7lb72/llXf72KNr6P5
d5Wcacxlktdp/MYae7jav5c8XPJi1Reo/0PVB2v+Vho/SG255KUq/7Hm+M2R
v1ENXX+EysYau4/aGqm+t+7XQvV31faV5MdTP9sYlRFqG5z5/X+oMkry95I/
Uf1mXfOd6vvo+laqv6++tbq+s+4Xq7+i8pjqB6q/o/rXqP8b9e8lubnklZK/
lNxJckvJ70n+WnI3yXtK/lzyt5JnSJ4mubaea5eq1xBr6TP1r1P/yWrfHln3
+1HP85LkRpKf0/P/rvrxeoYzVH9X9Y80/hfJvTV2nMZ+LLmd5mug8cs032eS
m0jWkOgZySsk1+Geqh+otj7qa8+eUv11ta0J3sPs5dckfyK5hcoyzb9K8y8P
/ibn6N6bVfytmks+WWOH6JoxuvZDte2k8cdo/Bca31xtNXh+jXmP+STXlPy8
5Pclt5RcS/ILkj/g92juRZr7GZXmamumft0ielb1d7m/5I0kvyh5leTXdZ9Y
9Qo6SH1H6f9j1f+0nmG96mdovhqaa5TK86r3Z52r/yX1r9S1o1ReVr2nymjV
t+V96brjIl8/RW2vqK+/ykX062GOVvvx6h+ksS/oGZKKv1U/dGHVz8D1p7B3
JB8m+UjJ/SWv17g1mqut5N3U3kXXn6l6UPt4jV2Z+tmaqvRV21ZqO1TjjuAd
aOxytb2ovt1VDlH7i2rrrb5e6FyN/ZX3zvOqrZ/a9lb/55LfkNwM3adn+CW2
zpul/rc0vg1zq+1t1bfWHIer/Wi1Dczd/5z6nldpr/ad1H+a/h+u/ts1X1+V
Grx/vYMm+vYnSX4y9re4rur3/YTkuepfgU7SfF/H/s2DdF13lWckZ+wflTfV
n1Z8T57nJc13QvlbGmm+VyQPLa9Fv/yBDpd8juSf1fe7rvlK1/aJrC/2C34X
FbWP1fgj+GbqXyF5TtW/id+2UPd8S/UGauur/4/SNQNyr8kdE+8p1uqZqZ99
ra75U3P8qd98tOr3q2xbeI98oPalsfcONqmX5B1j2yr2YD3NVzfy3uQd867/
UtsP6ju1sC5coLJL4Xd9jvr31vWx7v2D5vo09pp9N/Pz1NLYlRWvIdYUa4s9
UT/3WmUt5rwf1qFKP9Yez8O60vU/Sb4cG4P+0z23rdgWn6J3cXVh3btMpY3q
fdV+sMb/iO7Enko+SPIPkr+TvFpzvKm531L5JPOe367EB+iCwyXXKp9xvebb
Prctw6btW9o05B3UvqDq8T1YC2q7XfIyyXeWa3c/yYXG/az+GZFtdk3Jv0m+
XvKOkjeS/HtsjHGzrjlVvzfoXm9UvCaSwteep74/sSWac+fEOh3djs4B39SL
rIt6qL6pSoJ9UdlObaFcw6zljXR9a/SWxu+pvkTlx9hrFAyyTdXfAB11Erqv
8LNewh6qeh0z9ntAVrk+Bqv6Z+K9+bzGN8H+q/9FsFKJF7BlN6m/Q7Btmwy+
CcZXfM9UbbuxN9Djqu+qcoLqSzTHJqpvyh7XXC+qPKdr99F1Vc13kvo7g+1i
4zfwHHUwy8mqt9aY03XvEeh43W+65OM1bxdsnvrbqG2lxneVvLPqX6tvBc8i
uYOuu0H3m6n6Drpfomt3D9YtzMncHVlTsW1zLLmF5nyl4vUCFlrNPdAnkgeo
fmNu7LIjWEHjF/GO1V9VeVb9E9RW1VzvavzNki/RuGaqX6Xyg+rnsudVf19l
fmEbh637SOV21c/V9RtlxijITSQPZF3pnmfnxqs7qq+27re/xj2stoXqa6/2
gnelazZW/3KVG1VvqrYTdf3p6DCwkuR+uq6d5I9535n3UmuVY1W/UPPswP6U
vG9pM9j37P9XsbfB9gq7dQT305wr1PeOyvUlXmwJ1lS5TPUPNe51jd8iso1/
ROMfRD+wT3R9Y5UBidfgMPXN0xyb6tr3yvfHM/KsfINPVJ+G/dM8rcAMhfH1
1hr7F/fM7BfgH6ADdk9sf9nfJ5b6bEbVfsEG/6DwHgRLr0i8Nxfp99XXXLdq
3pPYqypnqG+kxlyksduq/wGwk+RxrBXN+aDkeZIvTbwnd1d9eblX38lsD9iP
6EMwOrZjbWLsvr3meyq2jWxWGK91U/3TxL4AGB8s9Uli7N8kGIuuYo9Lbhps
r5eX9gYfAnv9dWLf4rjMe/EdlT3UtlT9dfkeKq/rfkXqNcLaGK7yldq6R7b/
a1VvGGx7ntM8l2rc92Dw2BgXX2OISm10q+RvC1+P7scGHAm+B4NHxhhgDfYs
e7f9//tPGnOL5J3A4epfm3stNmH/qv597m99mMpvhfEY9p93hv1ZypqKjWlb
6h45+iT2M/KsPDPPjn7opfHrCn/7Diq76Nmuxm/Q87dTmZXav+PZzpE8qDCG
BRt9mxjbXqv/75PcRWNaavwyzf2o6p+DaVW/XePnq95KfZnGj9L/dTXXFyrD
uZY1qPEHSr5X9VexARrfWeMO1fj/ST4vsk+Z6Pn+lDyR7y85l/wYOpTvo/EH
aPxsyddK3kZye8mzJM+WvLXkdpIH58Yz/2FLqranYI/vJW8h+QnJL6HLNf5A
yU9Kfpl3L7mb5PMkf6x7r2JP6H08pmeepec/WPKjrH31L9L4dhrfWeMXSn5G
8q6S95fcQM+8ILaN2Jf1XVi/XKD+rlVjXLD9v4mx75nqH8f7Un8XyfV1/a26
vova6gRj3jM0/p/EWHjfYLz3R2b81k7y+5KPV//2VWOsQRr/vxJ7gZFPkfxH
Yuz8jK67XuN7aP6nVW+GTUp8j1F8C+bM/Huf0LN1Csa/v2TGw+jk0ZjS1Lp6
K/XPi40BwDNgQnAAeOBl9R0dbN+x83W5P/Zd4wuVRYV14CjNl6XWjWfl1j0p
ep/3k9sWJuhpvpfmvhZswPNltvno+r8TY4FjcuPbXyRvWfU375YYU7EWntI9
G7O2NMczqj+ltlfU11HzHwQWV9tG6n9T5drC9zwh8TvkWe5SeUT11hq/t/qu
1JglFdvQK1S/NTeeaqb+PdV/i+Q7JDeV3FHyfMm3g1Uld5B8j+RHseWSO1WN
m8BPP+n5UvWNVftW2FKVieobl1pfj1X5XPWH9Q6u0tiD4Hcyv7P+idcA7/Ja
/AbVG2rsbupbkHs/t5C8F/fT/w3hflSmJ8ZN4Cd8msDay7z3u6osUX2hyuWq
d9P4B1Q/TL+5q+p3qX4GWEzzrdf1V2I/1XZobl/tO827ufqvl3yT5EYat7vk
eeBSyY0l71E1XnpLcifJPVkPmn+85toHu8b3Uf/b+BYq16nvIHQGeAscrf4l
+n+lrt9f1/eR/KzkZWBPyYfg72C/Je8nubfk2zTvBbq+M/s98x46KbN/wN56
TuNfx1/Q+O7qOzAY/9bKjZfna+wk9C/2W/UxVXN5VcnX6PlqafxE7A/6T/IF
ifHZx9hjjb9X8zyGvdc1++jaTTV+cmwdep/G36f+x9XfVv37qv8mXXMuWAW8
k/mdHpjYhvKue+n6fVX/MLG/uE1uXzDT+K3BIrrmSvxDfF70t+bdruI21s/9
KpfF5md2KeV7In9zvj1r+mLNNyfyWl+gtrlgBfXfofqdKtNir6fmqs9L/dt5
B7yf6SqDYr+f1eq7R/LdkW0EtoL18zD2Agwq+TqV0ap3Yj+qvqBcrzwj6+/G
kjuZEPt93CZ5G9ZybHvD89yg+S+WfHfm+9EHH9pa9Wrw++S9Xs1+xgfkfrrm
AzBN8PflO8+qGt/B3zRXOVz1O+CTNNfVse3DcJWDVF+s62/T9Y9k7quhsmdm
2wy+wMftUvqLC0v7far6Ts6MtcBcL2b+Xk9G3uPsdWzInMQYGNtSCcZ64IG6
kq/SmLNic7rXpt4T+Gn4a+yVm0v7zBpjvfP9pqj+s9oa830Ly7erPlvXprpm
bGyMeid8Kftcclu+geqbBe8f9tE1VevQeYnXLLoVm3pT4jWOrZ2rceM0fh/w
s+p/peZi29KmcV9rzC6RsSz+6ViN6aW+HdT2ROrxfBt07j+qj1R/d/VvHpmz
xsdamFiHoEvYg69XMDDem3/omp3pU9ufJSa/PbGPBlafBM6PzXk/rf5NMu81
MMGm+Asqx6n//sh4CA4LLutjyQeWPskCzfdsZF8FnwZfZ+PMvs54/d9H43eM
zDEm6JqKdVrKWi3syxS8p6rx96WSj9Oc10qunRkbfQo+QF9l1r8/qeyAjc6s
y75S2Ur1mSpns/bwufj2mbHZlypbZsZrkyJzzvUzY6IbE9sksNLWmbnlb1S2
Ub1hZmzyncq26J/Mum+NyhaZMdoNiW0k2O0atY2I/RtnZcZkxyS20WA11hxr
7xeVJqo3zYwVf1NpxvjMtu9HlUaqt9D1pyTGeOPgqtTWV/PvynrTbzkGzK7/
H9T4XwvrIHTR/1RaZObB8TXxGQm4jEzs27MH4WuOSzcslehO/FtVhvKbYu83
9t2PhW0hNmxvuIbUeGF47N/3Ibg28jvn3V/Nfoz8DngX0/EZJF+jcUdXzZfj
j3OPIaqfotIpNkdVKW30jMT3w3afrf5u6D7J1yUev0/pn6E7zsqsOz8p5ztP
5fDYa3piZv9+LXgjtn/JM/Ase+g3LIR/lHxfYpv5Bt8fvKn6UL5/8O/ht+Lv
4/fPTf0uR8XWz9joafhYFdvuK1Q/XX2nxdYXR6eus2emSr5E5aTYHBxc3ECV
jrFjGANKGd+FGNe6xDb9rsSYHVv/seYbENmmYFtOVNkrNkc9p7TxdybG/Nj+
8zPr3mNUJrPfUus2dBz6aLbKsMg2B9sDv0Psq73aviz7+a2sIXiLnuV+f67U
N39xj8ixkXPU10vljsQ+zN3Bv//nyDoUXToosy+JT3mT+o4q9dfbGtNT7+9I
yQ+U+qwHeFXj52j8VthI3p2uuSk2x/+r6o+r7dXIGBmsDKa8KjHmBGsuU3lN
9W7osqrnQ8YnwDdYzDuJzXH/jL1MzY9xT/yFu1Pj59mx8Tf3o14HDJWZE4Ab
eKjEi+BH6uhMdCc+zmRiMhX7PvAxrMXGkfnNzqXPiX7F19qAsRNjxA3YW2Oe
iuyT4ZsdlHqvNlbpnZnjh+tvpDEvg/sl15fcGrxaYqyZiTE52Ku7+hup/xfu
V2K8WxP7eGA/MOMtiX08sCQcEFzQCbpmS3x9yfcnxohvqr/ABqs+OXE8Ev3B
XmVPsjdnox9UfwGdlNrHx9efoL7LNddKOFzJg/EZVX9LpZ7kVpKXFrbH6H/s
wMyqMSjcLfEHsCk+6OzSZ8c3JeYL1onAGIUx5NWJfRSw5RuaZ1FsPr2n6g8W
5pb+Lf3XW4P5f+IA83Rtzcy2G06vVmbOCu6qRmYu8JXCXBr276DCHMfcxBwY
3Mevmm90Yo51iuTfJI9JHDOdmptf5Pvupfkm6dq9M3OzrEHW4sv4Z7F1DLqm
KzaofD/3lxzE9SU+gpsgJjshccyU2Ckx3HPxcyLHdonRXlhicmK3xMvBw+Di
QVXHjMHsfFNiydg8bB8xU+whHDc+23TJrwV/c779lZH5ot/BT4ljxhfzvgtz
UXCGr8EvBO9X9s4Ful97MEFszL1rVsYQE8dAiS22Vdt/FWPmndmvhbloMCL+
NP419T3UN7HqGHObkn8n9kwMs23imC6xTWKKvVLreGKNxKB3TRyzJTY9Um0X
VRzjJx5FjOKIxDEWYhesT/Y+OuRN1T9Uf7PEMe1bgn8v3C2/Ef6NmAbxMDgZ
/HHwC7YdH/cWPcdzhblldAy++glwbqpPAa8UziEYqXGbV5xbAB4Bm9RTmZ8a
/4BtwLhg3S8yc4Fw9OjvQcF8Obz5jVVzBD0Tc4hwB/hLqeSekeNn8CrwK++x
B1RvHBybIEaxYzCn0TB3PAiuo0dwfgVc9eSqORNiiXCgcCmb5fZXGXNP4vhJ
f+6ltt90zRvBfAR9h8FfaPw/sXMSHk0cj1gleePU8Yn+kt+WvAZbXHUMePvE
OQbEhl8PxuL4APgCcJxwnXCoXxdeP3AxcOxPFo6XE3+dVDG/GIJ9K3ysuwrH
1AaW/DWxlJaZsRU+Gb5ZK/ZExT4XeAtMCjYlRwH8BiYFm06MjD/Jd7gc30XX
Dqya0yI2yTuB64KvPVPyGMkjc8ckielMwP4H56CcDU6vODeFGHaTxDF4Yttg
SLAkPir48kf1n6X+sZH5X+YcoTKuvNdP+n9Y4pyO0WrfBJ0RW7/Ct6/nfolz
QsbmxqtgV3xOfM88s6+6osTwHTJzTaxnbCc5Bj30/5eRcw9OCear4a0vKfUr
+hRMAja5pXDshN93U2F/AW4KzAn2nFOYCyFmOVv1h4Lx0HPqO7tqnwrfCjyM
P8t4uDnGXFfGG7C/xEKIlYDn8S3w2fHd4QDgAsjZQB/BCaKf0FNwhe8Utq8H
l3iC3ws3B8fXMbNPgG8Ax4u/cm9i7II+31PzP134/XQs9RUxeNYnPuwXif02
/Dcw9aup+XTwGLG26aW9vEb9T2vsRZL7ZMYCi0t71oM1CPbVmBd0/ZGSW8SO
0eC/w5GDL5/PzJ2znuG2WMOs5Raat5n6b6wYT1ylOVaj+9V2iPr7BeMHcMSU
qr//8tK/ABvPLRwr4nvBLZLHQT4HHD9xndsKY2kwJ3zzw8H+QrW0p3x/YlG0
ET8jRk+snpg5uUHgmz7qb1B+A+JTA3ltmf1H5l9VridiTdck/p7s1+Z6vvmJ
uQk4jF1S5/jslTiHhtwfcnY6Jc65IZeHmOLliTl/Yo3k5OydOIeHXJ3fNMdi
zRWXeHRg4Xyraeh41S8rHGsk6a256v9qzGsVx0Q/SJ3Tc3DimDi5PuTwdCv5
LWJFxCCvSBxDITZJjs4RmfkYcnfIsSHeTLyY3Bt8fHz9DiXeIqeIfDNiYMTC
flTbI+rrrfJV6pwgcoPwh15OnZN0UMkfk6uEfYI7A6MQ/yTGfEnJhy0Njs+g
O4mRECsBnzA3MagDMsdcv83M/xGLXVjYP4Uz20v1ZYXxTJcSDzwSvDbwNeAP
4CPgE9DHcF8vFMZHnUq8tF5tT6rvd13zCL4Ge6ziHB3yRR4o7G/D8cD1XJY4
VwvODb4WfgRsis1vl5gjAz+SQwjeiEr+D04ZbhkcBh7rqf570Z8qj1a8Jteq
fmnh3KNtNf6IwniO2EOt8pnfLozN0SHLVX9Sc38UGV/Dp4BP2cvceovE/Bp8
MP7DOZltFrZrCrqy6vdLbJvf9HxwzJAcGPJxiCXWlLx14vyDtvD5wfgc3x5u
DXtOrKKX2t4KxrPEsy/W/Oerb5LkQewn9U8s7N9NV19ztR0sebjKaarXUf85
qtdQf/3EOVfkO7Bestz8PrkKZ6ucCp5X/zDVJxfG/ptJPr+wPzY3tj+9KDM/
Re4nMWL8efgOfArW94N63otUpqpvXOJ42HTJ10i+KDG/3ih3Thb5XOAX8jeX
xM45IvcIzg3ujXgyuSLkjMAbwx+TS3JJsL2elJi/vyx4LbAm4IYvDY7PTUsc
75gRHJ+bmjjeMTU4X2984vgdOZ5jUsccyP2cFozVwezEK1hjYPVtU6+9OZJv
VHU7ySdKPjQYe5Fjdkzw7yOHBPx2lP4fWjhWcoXk7Qt/oxci++R8u+OqzokE
nxGrBlOCLc+LnQ9JfiR1OGC4YDh8bOP5sfMtyb+kDgcKFwpHPC+zf8B4OOUb
MuMduGY4VHTx+NjxTTjTWzLjI66Hc92AYyven8RX4K6nqmyh/n8L+5pzS/+T
fBtyW35Q6Sq5Nv6M6uvxh9Q3qzDXToyOWN1FhXPL4AzqleO3rDjmSOyRNcna
JAeX77FR4b2EnhipZzu88Np8KrG9G1w4dtwFf6QwHiMvh5yb21Q/lW+ODpK8
uMRv/2TOaSXX7AT1P6v+EZrjWMnHS17FXpbcunC8nVzTSbp+d9V7B+cKgdGP
Cs5XIneV3zAabgn7pP+X4m+ob7zqDSr2xzb45Kl5Y/hjYnfc8zD1nZ76WfD5
2mTWd/iC2O+RFdvU60v/g7woYnR3BPt/ldzfgG9xaOFYCN+A+O1tVec18cx9
JN+fOzebGBL++krmU9+Wmq+p+i4PXt9wfnB/M4O5Cnx2fPdhKn1T20tyifge
ffV8syrWF+THwYPDhz8enD9HHgr5KItVvyqYC4IDgQu5MphbgSOCK8J/OwGe
XW2fEDsM5u7h9OH2r5H8cGSOF6732mCuGI4frv+ocu9tVu7HK3gHkTkcuJzZ
wdwwHDNc803BXN7difMBZgVzF3BAcEEP5F47YJPB6BuV0zLnPPyg39sxd+7T
O4n9n4HBth8MQH7LdsH5Ki9nzm/ZP3fu+UeJ8+nv1LyHVByzwZ6cCaZV23Vq
e1fzdwvG/xNT5++dBcZMzTf3V//V6ITInAvcy9hQ+kaJ4+OPFo6lwynAv4wO
jiUToyVW2zq3LelfsX0kZ57ceXLuJug+5wXbenKEB1SNd4gbED94AmxUmKvC
JsK3suZXSe5S7oXXcuey40N2B1up/B07///p3Ptpk8Q530eqfn5wPH4ofgNc
XbDvhQ9GfjX+7X+x52RufAx8DfYI8XJsMLaYexyisZOC4/lDdH0b9Z0bnP8A
hw+XzzPwLPjExKcuCPbN8NHIbx8fHN8nR4FcBfYPvhjfhG8zMTg/gJwlcpcm
BOcykENNLvXBufOHNin1BX7eaZFzxJqW9oO1umnpv8OHf5c6fxWu/sZg7hjO
Ge65a2FukpwN+Mt5wboGzhzuHD4FjE8Ma77qNwRzv3DQcNE3B3PrcIZwh8Rr
ybUmh6tnMGcMd4zOI78Incn8+Ero0ttyrzew+8lV6y905w9qa6Txc4L3C5wl
3OVqya0S5xe1Ya+AOVQfrWvOUP36YG4TzhPuc24wdwenDbc9QHLTyDmY5Hcd
CT8m+SXJQ6rO18GWEUPFvuFz4Pfi/+KLkA/yl+R1sXOH2V/4ZGCe+yQPlbxM
v+UKyRMK768nU8co6hWO2QH+Zqh/LPtH8qmJ4yMPBOfTknsyODU/OQoORPWb
1Ta1ML7gLAn2oWPhMXCZ5OByLfqUOB/xvgaS9yg8N3nCO5X65vTMGAIswW9+
jL1Y8bv4O3f8iDjSiKp1Sr0yhomuGS55aRkjaa/xUyUflhkjHlvYhuI7osMP
L/Efuvw3XX8Mvnpq/3aDrPq5hXMr5uFvFcZA5IiAycBG+MT4xnAKa3h/KtMr
tnGsD/IB+6v/AMm9c/vs+I34j8QG4ADgAshJ+0jjxxfOZT5f4zsUzo/8Dw40
dq49+YlHZ9ap/F5+62UVrzHia3AacBvo6M65vzFYbMvU3x772CB3zsIh+n9+
1Tn18NPkF2CDGkbmFLFNnJcghsf8C4JzTojrg5HASnyz4Zq7TsXfkhwIcufZ
Y+y169GhmeMNO5f4kHxtbArf+rzC8ZmjNMeVVcfb2OvktAzLnH9MrhoYcYTG
3KM534wcoyFWsyH+pL4T1fZraZPg5thD2Kp7g2M5xHiI9RCv76jxPSLzHeSf
wDmeLPnJ4HgJuWF3asyd6BPJn2eOR5EvSE7vusycILm+cJpwm+RkdsmNR8ld
IP+iZolHyXWA0yuC4+ucf/la43umjikQW4CveSo4Xs15GPZj79LHqpOXnHPh
+Cu5wpxJOzQ1JwQ3BF/0eGF8S24A+QabgD+qjvmRs0DuAjFtYtsn6fpngtu+
wJ/IPJY9soa5M+8d4v2cT4M/615+o2mZ8435dldIvgAuTXLP3DEVYis8X32w
fTCWxgfGF8afm1lx/OfowhwUXBT8FVw6HCu54OSAw72iW+ZXnEPwZmIMABa4
O3Z89OHCuVjkAJILyPOxlgZIjiRvXNj3J94Af4IMl7K65AP2DD6rRA4v+fxv
6dprNd8fGvNQ6n5y/TnzsldwvincNO/vePj43LFVcpY5n0IOE7lMH6jspnp/
Pc+Q1DmqjG8f3EfMeUgpM9f75fh+ublpcgA7lf4Hvjk+OvEuMNn5qW0SWI18
VtYmMeffNbZh4VgrMVfOdoyGA1D/kbHPG3L+kDocEWfzWH9zMsdjiXXNUNu6
yDEz4vl8z8NSn/8jdvZp7r3cu+R/+P7EdbnnX6U/fm7Fa+jY0t+eIPkzyf1U
/6/wt+Gd8e7gkOFax8TOR/1bcr/YOu2M3DnQxNpp+6dw/ipjyWnJgn2WQmOv
S+3LTFD/t7H9Hfg6dCa6kzb6RhXmxngn+xGfyW2rOfPRKtjGk6OHT4DtZ/9/
lpnz3ylYp6JbiWlwHuD93GdhyFHivAzzvRHbv8D+o/8+ytzWMji+z9qFkyT+
w57Bl+Md8i7hlOBp4GuIzcHRkydCvgjcPTGOLXNjQrAhOc9rM6/JDWszt+/B
nuW8DhzKfpljhHArPC9ne1TdcH5nRW4upE7J5/YtbOvA8GB58pnfjX0Gom0w
f9s1chv5zTsE61JiNI3L9YtvTwxzH8mn5j5rRA4t8QV80G/K79E5GKOAVRjD
WHQKugUdv0NhDgkuiZxszkdOK3y26BN9o9Or1mcvZM7fInfnYvXfXnF8H7xF
zjq56zwjZ6c4X4OvTk4/eP+SwroeTuqh3L8HroacesZPyu0L1yz9Ab4Xuo41
h/9NzIjY0ZLIeD/OzQ1wZgZ7tVnhWCwxUmKly1O/bzhCuMI+6t+vYvuJvX84
3QBNN3CKcIvEyNGV96DzU+cs8Nv4jWtUfwebrf5dKs5XqK3yUOQYMLHgdamv
HaLnuYJ1JPmDyJwh3CH5HLdV7E/gV/D9D6jYhwfv8J5535zp6p34vMlDFfOP
96XmvOC+pkXODd9c1zwfOceLXK/XU5/d4xrOp3yp8n5kDhgumPzaOyq+J2ci
+H5gZTAn2LNO4VwP8DG5Xv2IKYDdKtbP3VLX/4e+Sf17Uf19y/cFhtuA5Srm
Z0cU5sq/ihzf5HzqhRXHHIg9fKXfsFPkmCyx2S9zx2aJCRMbBg/ybrZPzc+Q
Xwu+IkeY/KQlqfEf+Jn4CfwXXGULlUPYj4m5EX4z+cTkFLH2WIPgDr7P3fx+
Pc+lmXMo4Gtpg9+FI4YrBm9jD4nBE4u/q2I+nfdLfbCun6Hrv8gdyyYGTSwa
H7VLOWf3wueLwZr4A/gFKIaLIsfQiaWfGHyeEU4Xbve/3LF1cgjIJcAmYht/
ynx+lMJZ0s9Ke4n9h1sjZw4+bQMnmZizJDf739y5COQokKvwe+5YIzE/Yn+/
5Y79ESMkVtiq8HlqOES4RDgMuIxXIp91aIyNiYxpyM/kexPLBkM0LXw+ldgS
Zzo5PxsXziUgR4FcBc5nwb2CEckvh8OFy4VTJXcajnVayceTa875b7A+OuEV
1SuF+VP4VHIh2O+cHSXHBB2LzmJPkV91XO71i20Ec4A9wGbkH9bEB1H9qsJn
64nZzCzsb72Xeg3ze7CR2Er8AHwf/Ad0yUap/SP8GWITs/mGqfPlbq14jbJW
exWOvRCD5nwQOZ878FsrPqP9a+7YLPwAsVxiqfRF4IfUHA/7lv2LvYiDY03k
9PbWfKel9pXRMeQfb1E41wo8Tu4ov4FvA87jt+0IHxMZI8L3dyjtMzYYW8z8
cO+sSeJZ5Mx9qP6uqfkAdDDcy+a5dTN4hVhV3dL/4Hz2dpFjZsTOiC+iOw9V
WZj6bCu2G3uN3f5J1xwSOUZGrIzz2AMjcwDwqHAwxIfjzNzMsYnPapMThz8C
p0C+Wa3UXMPK3LEKYqTwXeBZcv3wwfHF4RiJN+Aj4ytjz8kV0n9RY54l9drG
n30xtU5GN5PDR77eotT8MHwu8b0fc8f2iKkRWzs49Vki+ADisz/kjrUR8yP2
B74gl4IckjeDz1RytpKY00t6trqJsQMY4v3MMRZiO4sTx17ImUIfEVMjtka+
GFjwz8j5ncQY2BvsEWINxNzIxalTjuf3TS7X18DUPjK+MjlZ5Lu8nTsW/HOJ
D4gp4estSRxrIgbZDF2Q+G974MPgyzTheQvHHMCyp5T6Y33u3BpyZMiVeTQ1
N0jMqbba3s19LTHu9/BVJR8TOSeH3BzsNbblPpVvVd88MRc8ufw+G+xYxTmj
5Jd+kHt9sc44Sw0Hrf+iRYm5ae4P3w/fAe+xKvfZY87wcpYX/A83S/y4C9gC
P7tiG7Mv+zt3Lgpnljm7vCZ3LhL8LLHaz3PnIpGjRK7SN7ljycSgiUUfF/z7
uTfcCxwsZ6nh0OH/pgT/PYplJZ8Anp5asc9AvPnb3LFrYtTEqusGx1rhDOAO
1uWOdRMTJjb8neS9Ise8iX0TDyAXDJ/uUckf5T67To4NuTYf58414Uw7Z9uJ
L5B3T/79NiXeJXbImeBXC2Na9C76l9wF1j+5CdiIAWCr3Gdf4Y/JtWFPsjd7
lNw0MTdib9h4bD0+K3iMHIQVhXN5wRJgCOLX+5dcFLkGcDXkpD8b+Uwa5wdW
587VImeG3Bn4TWKrcMrkX+5c+hPoHnyHNuV6eSUxt/hCbmxMjJR8P87TLo7M
qd+VmrOEuyTf48DCfDWxTGJY5FeGwr4wOXbk2uE3gWWxCeSrb1I41k/OAbkH
+K/YIexRu8JnJjg7QTwADuft4NgQMUtil3BKxHKJwcA1nRoc++d7c95018Jz
wdlg/9B76D9y9OE7zgy+nhwxcsVGBv+tCnLYyWUfFczVcEaMs2LDg8++8jcr
OK8H/w8AJGeG3Bm4CPI9yVmHL8GnxbclhkssF/6A3Ety/B4pzOEcoClWJ+Z2
BgdzO/xNHM7HnhbMnfE3dTj/CqeHb8+ZX7g+MDj25MrU/BSYFGxKfOPt1DYT
3cYZCviUgaVMTjYcDDnInBedmZqvwufH9z8gNX99RvDz8TdQOC86JPj8LmeS
OJt0ejA3yN/s4fwv+IGzCGAm/j7Pv5l9L3ziYZpzTOa/HcKZD/goYpzEOt/L
nHs7NDgXBPvA2T5iCsQWiFlMyx2jIFZBDIG/DTMi+O818HcbOG95TijP6iY+
L8g359t/mhoLTcFHq5gzIH6PfeRd0UbfhYWxCxwC8Xr4Abg+MBJ8ADEDYgfk
LJK7CH9B7hX8Brkw+BCfpfaX8C34G0zEP4iXEDe5MDh3ER8bX/vi4NxIOF64
3qZ67t0rjs8dr7YTgu1dw9K+wHUTu+VvOBAPhY/A9mKDidUS/wWrg9nJ7UTn
oHs4U8x53u0K+wrgMbhjcjrwrcgJJ/8AThr/BU6a/GRiNGAxMBn5tXBKJ0Xe
o+xVfBJix3DW+CrLwUEVrynW1mPqa1Mx/scPODs4NxT7x99nGBZ8fpC/IcJ5
1rOCzyfzN2A4zwrGPCv1NwB7buCXK+Z0ifeDOeHm4bDBoveVvwd9jF7mbzwR
y4K/mJGaT4FP+Dgxdz0m+CwlZ/Y5n0qOObYXG4wdJ0ZGrIwzsZfk/hsmcAdw
CEM1Xw3dc1bkvwHF34LaVPKtkXOYyGWqFv77CuQgk4vctvDZBbAc8Wj4b771
39iYwmcm4KrgrOAVie/zt0TIkeOsU83CuUjkY5AvAQeFTmXP3R98po5cdM6Q
wGeTg0EuBjkXnK1+Ovh8DzkI5CLsUeJ3OIHzc3PyzM/ZULj6/wNBpHPR
         "]], Polygon3DBox[CompressedData["
1:eJwt13ncTtUaxvEnr/d9H9MhJFKZM4sImYlU+hRSndIhmQqRIUOjZKxIhigJ
GTKUJnMyHDOFqA4JRXUaDCGp0zmc793uj+uz1/1b132vvfez9lrrKXV/n7a9
c6RSqZ2USb2zUqkBrjlyplJdgA/SqdSH2alUXe06lMm8Rvw6fgPPqoxU6kv+
XfJ6Yj+Ib6PW2C3YH5SXr7vcphelUm3ktqcj+vfge+lted/wfSSvNBXXV0vc
A/9efGvUxFphr9Dz2jldMyOH50XXJ7CU60W0A9tEvxjzLHXUdQ++wrgXuf8p
6g0zbnPxRr5TPKdptb7S4pl4fvfal+cCvh2biuXFemN/YFuwz9T8UK3d2FR9
I3g247/p/516G/cBnhp4T551NIDvQfE+Kme8Nny30Up5D9BX6t0Qkttc7gW+
XfH7yB0TPxBPbzrB047ugtrydeLro/ZqvjZUVNyZ7wBPE9qi7wVsKZZbnbz0
BfZkPAM2X7yARrmntnzn6A7tp7D2dFD8D77NalWkNXLHYYuxScabTF+5l73q
naGfeW6mVtgd4mp8e9X7Vq1vqKr4NvnV9X/Cd1z+e9jceA/av/J8x99Y/BTl
iXfH961xF8k7ruZ+cU2qqkYT8RK+HPJy0h6+Hti39DFPWbqc71pxlvwJ2sOw
nrwnxb/EXBXfSffo6yzupd4xcVu6A2uNPYQdF98eXqwN9iD2tbhlCGuB/YsK
axcOrzH2G+Njvrx4Plqp723XKng3z7aG+rnnbnFvfFeLZ8hdxreIryO2XVyN
ymM1sHJZf0751P74LWkdT7b8onIfEA/XN4GhPb5aXkHqbozPeGpSu7h/7CH+
WuLzvPm1r85lHmiPpg5yt8U7pip0WHw03q/f5khmwqKvI29X9c5p/4Cv59uo
ZgPt+pSbf5M4F11mjCF8I/knyVvLu4VnK7Xg+zm+PyrDN4JvMt8Mvi+wSvrv
4ruTVsXvjV0S7y4jWQNiLUhjxbDB2AhsIrYXu1FOSyqmxqfiRfKH8y2iVt7L
Er6CeFXxi3Lnyl0Y3y/f53JaYPfJ/4knD5XgezIjWY9iXboEa4zNxzZgm2M9
wgpjfbHHsfHYi+pVw17DlmJvYtfzlXIPC+K3iPVAvCE7eW+z+UbjLcVj6Gvt
aZSb/xrxj/I/56lOldRrKG6MD+XJH/Oa733xTuMWEF9MW/lWu96LrYtvI9Zd
+ly8iwrH88Q85tvuOp0mav/k3o7RBp4xdGWsS/Je1jc11l7jVDbeWPxS8W6e
f7vu4qlAV/LVEd8dc0v7TDDtT/jOxm8nr4L5N0h7MBWN9dg76ILvo9HqV8F2
Y4fdxyGqLP6Od6daV9EV6tYWb6FPY22Q9zy9mU7m89a/njWeOY+xvufboz1Y
rVvVPWOMTnyfYtdRbTXq8fwU70NcgypjjSIvO5lPi7HxxrhFfH/sDeJ6VIev
Pt8o7HL9o7Ap2JRYS6hRfBfG3UhreJ7LTubiQt5naCE2mq6IZ5c7Ve5L8o7R
PvE18V1ijWMhkHsxXw3P9Fzsk/Q7drcxhqnfgY6KV6jXXPsGKqLvI77h9AzV
iT0Dq+t6WLxJ/XL0N+Wrimfi1xtjWcwVbFvkYQWxx2KeYuOwL+mf4hLxjrFK
4oO0QVyK8mKVY1y5heQ+jo3BxmIzsGbYUuwzbCt2iDaKy1A+rIr4WRpDw9LJ
c59zfY2aai/JSH77mAOTPPMO7/Q8foDe4XmEzvN0pV583fimYHX0L8A2Yiux
itg+7+lM7FveS8MYQ73M+AZ4B6k7Q1ySTsrpge2gR8VdeL9Uq2m8v9gv4t3F
nqLOefn9+OaJi9Ai8RxxMfUayB2IXZDTLdZndbu7l0FYBk/PjOSMFme1wVhO
rBf2CNYnzm/Y/8RdYn/DumAvY9fFWodtxlZhL2AVYu/GFmBzsCuxDe6lE53A
SriXX/FcfBXNqyHaj1LrOG94jgnh0/e+vMlUU3uOeh/KfZdvFtYCW4kdiHMM
9hJWC5sb5wjsvfgNs5Lz4VH8CL3Ls8wYF7AaxqhOy9PJtxnf6JA4N/HNxrrR
IbWaZyRzPeb8CfWaqX19MN4D2BfYGvGlGX8eo1LlY25o1FBnFrYCW4yNpBE0
NJ3sh2fjGeik2jnwgTFH0sn+GPvk07Guxpklvl8qpT1WvRnqTYt62KXY07FG
YH93L+Ow8tgkbD42m28sdhU2EXsDmxXrC1bGtXSs6djNrpnYY+5luueaFufW
WIezk99rq/zh2B/i8XilOJuqt1jfPLkHaH2skZQbqxjrZOxbcuZh62LfEveX
+19xZ+qBdeXri/0ee2DMS+w+7Gis+eKSdBlWM85+wcUNqT52o/gkHRE3iHUR
aynOq96Pft/LjT2L8ohHxPfgnofyndT3tns5xfuNuFHky71JnBsvHt8ZNgqb
jBXCrsVexd7HlsV+kk7OjEXUf42yxecin6+S+fyY9uNUIJ2MVzK+Q8ovzqde
6VibciZ7X+yB27KTd9Qk/s/EfwNx93hfctfytaPi4rfkT4hzBc8Vfqs9ck/H
e3BvN8XZWI12cWbKTs59cf67nS6L7yr+u8Q5NCPZI2Ov7IodFDejJtit4rvS
yboS60txnjYxD+WXVWck9hLfTPxmfFXsie6lkLiVeCJV55vJt1zfW/iyqMdT
IPZV9/QUVli92nzT+ZbwLcfui7O8uG5GcqaPs32cI9aKi8U8iLnl3T6LlYy9
V/ybeu+pNR1rFN83tlu9jX+tJ7GuPJlOfpfTro9SlnZvvkF8ffW/gtWLfRzb
gn2AdY99KiM5m8UZrbq4H/1H3CnOu3yd+KZidWM/xTZhK2JMLBN7CBuIPYy9
ijWMPQL7GFuPdfIs/bE39A2N753Kxx7vPe2l2sb93rM9jP0WZ+GM5CwcZ+IL
WcnaUD1XslfFnnVxnGGw8Xxz+BZg72CnvaOy6g3RVy/+M2Yn+8u9fA9j14qn
GaNB/GfGPpK7LvZ5rBw2AZuHvZ6V7NWxZ3fAO8aanE7OU3GueiKdrOenXAeI
+8c3kE7OXj+nk+eL56xtvILGr+P6f9S5DIU=
         "]], 
        Polygon3DBox[{{1660, 1659, 2248, 1532, 1533, 2249}, {1789, 1038, 1514,
          2242, 1669, 1670}, {1788, 1037, 1140, 2216, 1667, 
         1668}}]}]}, {}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0slLlVEYB+DXMbNyWKQU6U00hMAhqHSRkMtQCJQIslooQholBIX9BYkN
4iJdBRLkQgSxnDLBRSG0LZss0/ZthZAWPgcX731+77ln+M53b1X3QMfdrIh4
od4KKT/3scOa/IgS1jPDj9kRzXK9PGROq9wiDx6IGNa3y1eNdbGX/bzPB+qh
/IxDHOc4X3KS05xP5/MD2+x32n6lzvusn5cvqzc5Eev6OX5J4/zKBX7jIr9z
JDeizvxy63/on+ZF3JIbjJ3gRnoWY31yo7El636m8/mLy9zkO/7mbfNG7XnG
3Iy8Zey1vkO/LY/JZ+WTvvujX5I71br7fNKv8X16Ps5xiq84wbH0vvmIT/hY
Dcr32MceXuMVtvESL/Ai69jEyvRbeWf/ueLcYs6ySdW6Q5H+FI+wmodZxUPM
sJAVPMjjPKYK5HLaNsromFh1v6OyVxc33HmXN52Rm353dgn/5OuyafFXPyOf
V8vK8hi1+I5wLmv//7YHBl1KKg==
       "]]}, {
      Line3DBox[{1572, 1920, 1921, 1881, 2005, 2139, 2438, 1877, 1922, 1923, 
       1882, 1924, 2006, 2439, 1749, 1925, 1905, 1906, 1883, 2223, 2415, 2007,
        1750, 1926, 1907, 1908, 1884, 2440, 2009, 1751, 2008, 2233, 2259, 
       2033, 1752, 1573, 2240, 2260, 2090, 1753, 1574, 2261, 1754, 1575, 2262,
        2140, 2314, 1576, 2263, 1755, 1577, 2264, 1756, 1578, 2265, 1757, 
       1579, 2266, 1758, 1580, 2267, 1759, 1581, 2212, 2268, 1760, 1828}], 
      Line3DBox[{1582, 1878, 1934, 2141, 2413, 1879, 414, 1885, 415, 1364, 
       551, 416, 695, 1485, 694, 1829, 1814, 2049, 2451, 612, 613, 417, 2269, 
       1886, 555, 2010, 2234, 2270, 2036, 1761, 1583, 2460, 2091, 2092, 1762, 
       1584, 2271, 2142, 2315, 1585, 2143, 2316, 1586, 2272, 1763, 1587, 2273,
        1764, 1588, 2274, 1765, 1589, 2275, 1766, 1590, 2276, 1767, 1591}], 
      Line3DBox[{1592, 2131, 2132, 1830, 1910, 1927, 2072, 1928, 2423, 1831, 
       1909, 1815, 1887, 1932, 2393, 2226, 1871, 1832, 2082, 2244, 2395, 2108,
        2107, 2034, 2133, 2472, 1768, 2035, 2211, 2277, 2012, 2076, 2077, 
       1888, 2416, 1816, 1889, 2015, 2016, 2014, 2442, 2013, 2039, 1769, 1593,
        2462, 2093, 2094, 2144, 2461, 1594, 2145, 2317, 1595, 2146, 2318, 
       1596, 2278, 1770, 1597, 2279, 1771, 1598, 2280, 1772, 1599, 2281, 1773,
        1600}], 
      Line3DBox[{1601, 1911, 1817, 1890, 1933, 2037, 2394, 2227, 1872, 2050, 
       1833, 1935, 2147, 2396, 2086, 2081, 2134, 2148, 2458, 2127, 2126, 2149,
        2469, 1602, 2441, 2011, 1774, 2038, 2448, 1818, 1893, 2017, 2018, 
       1892, 2417, 1819, 1895, 2021, 2022, 2020, 2444, 2019, 2041, 2150, 2443,
        1603, 2095, 2096, 2151, 2463, 1604, 2152, 2319, 1605, 2153, 2320, 
       1606, 2282, 1775, 1607, 2283, 1776, 1608, 2284, 1777, 1609}], 
      Line3DBox[{1621, 1779, 2286, 1620, 1778, 2285, 1619, 2325, 2158, 1618, 
       2324, 2157, 1617, 2323, 2156, 1616, 2445, 2027, 2097, 2026, 2098, 1615,
        2446, 2078, 1823, 2042, 1822, 2043, 2449, 1614, 1839, 1896, 1838, 
       2398, 2224, 1940, 1939, 1837, 1894, 1836, 2397, 1613, 2322, 2155, 1612,
        2321, 2154, 1611, 2470, 2129, 2135, 2128, 2136, 1610, 2258, 2471, 
       1835, 1936, 1834, 1937, 1938, 1276, 1821, 1891, 1820, 2040, 1912}], 
      Line3DBox[{1623, 2023, 2025, 2024, 2087, 2459, 1622, 2083, 2085, 2084, 
       1569, 1624, 2138, 2130, 2137, 2326, 2257, 1625, 2159, 2327, 1626, 2245,
        2328, 2110, 1627, 2111, 2213, 2465, 1941, 1840, 2073, 1942, 1943, 
       2425, 1914, 1824, 1913, 1825, 1628, 2399, 1841, 1897, 1842, 1929, 2411,
        1629, 1843, 1844, 2400, 1630, 2099, 2329, 2241, 1631, 2160, 2330, 
       1632, 2161, 2331, 1633, 2162, 2332, 1634, 2287, 1780, 1635}], 
      Line3DBox[{1637, 2163, 2333, 1636, 2164, 2334, 1638, 2165, 2335, 1639, 
       2166, 2336, 1640, 2246, 2337, 2112, 1641, 2113, 2426, 2247, 1944, 1947,
        1946, 1642, 2228, 2418, 1945, 1898, 1949, 1948, 1643, 2427, 1950, 
       1951, 1899, 1845, 2420, 1644, 2044, 2045, 1915, 2079, 2457, 2238, 1645,
        2101, 2102, 2100, 2338, 2235, 1646, 2167, 2339, 1647, 2168, 2340, 
       1648, 2169, 2341, 1649, 2170, 2342, 1650}], 
      Line3DBox[{1654, 1031, 1652, 2288, 1781, 1656, 2289, 1782, 1658, 2290, 
       1783, 1660, 2249, 2291, 1784, 2115, 2214, 2292, 1961, 2051, 1785, 2053,
        2236, 2452, 2052, 1962, 2054, 1786, 2057, 2453, 2055, 2056, 1963, 
       2175, 2401, 1665, 1847, 1901, 2028, 2419, 1787, 1873, 1849, 1916, 2421,
        1788, 1668, 2104, 2105, 2464, 1789, 1670, 2293, 1790, 1672, 2294, 
       1791, 1674, 2295, 1792, 1676}], 
      Line3DBox[{1675, 2353, 2178, 1673, 2352, 2177, 1671, 2351, 2176, 1669, 
       2242, 2350, 2103, 1667, 2216, 2349, 1848, 1666, 2225, 2424, 1930, 1900,
        1846, 1664, 2215, 2348, 1959, 1960, 2430, 2230, 1663, 1957, 1958, 
       1953, 1954, 2429, 2229, 1662, 1955, 1956, 1952, 2250, 2428, 2116, 1661,
        2114, 2347, 2248, 1659, 2346, 2174, 1657, 2345, 2173, 1655, 2344, 
       2172, 1651, 2343, 2171, 1653}], 
      Line3DBox[{1678, 2179, 2354, 1677, 2180, 2355, 1679, 2296, 1793, 1680, 
       2297, 1794, 1681, 2251, 2298, 1795, 2117, 2217, 2299, 1965, 2058, 1796,
        2061, 2454, 2059, 2060, 1966, 2062, 1797, 2065, 2455, 2063, 2064, 
       1967, 2181, 2402, 1964, 1880, 2182, 2414, 1917, 1826, 1902, 2447, 2031,
        1798, 2030, 2029, 2300, 1799, 1682, 2301, 1800, 1683, 2302, 1801, 
       1684, 2303, 1802, 1685}], 
      Line3DBox[{1687, 2183, 2356, 1686, 2184, 2357, 1688, 2185, 2358, 1689, 
       2304, 1803, 1690, 2252, 2305, 1804, 2118, 2466, 1850, 1968, 2066, 2074,
        2067, 1874, 2237, 2456, 1851, 1969, 2068, 2069, 1875, 2412, 2070, 
       1852, 1970, 2186, 2403, 1691, 2187, 2359, 1692, 1853, 2032, 2239, 2404,
        2080, 1876, 1854, 1918, 2422, 1805, 1693, 2243, 2306, 2106, 1806, 
       1694, 2307, 1807, 1695, 2308, 1808, 1696}], 
      Line3DBox[{1698, 2188, 2360, 1697, 2189, 2361, 1699, 2190, 2362, 1700, 
       2191, 2363, 1701, 2467, 756, 757, 1546, 284, 678, 327, 1190, 285, 328, 
       1191, 286, 2405, 1702, 2192, 2364, 1703, 580, 1413, 605, 242, 1391, 
       583, 1392, 582, 1704, 2309, 1809, 1705, 2310, 1810, 1706}], 
      Line3DBox[{1708, 2193, 2365, 1707, 2194, 2366, 1709, 2195, 2367, 1710, 
       2196, 2368, 1711, 2253, 2369, 2119, 1712, 2120, 2406, 1855, 1971, 1856,
        2075, 1973, 1974, 2231, 2407, 1857, 1972, 1858, 1975, 1978, 2431, 
       1977, 1859, 1976, 1860, 2408, 1713, 2197, 2370, 1714, 2198, 2371, 1715,
        1861, 1903, 2372, 2218, 1931, 1716, 2219, 2373, 1862, 1717, 2311, 
       1811, 1718, 2312, 1812, 1719}], 
      Line3DBox[{1721, 2199, 2374, 1720, 2200, 2375, 1722, 2201, 2376, 1723, 
       2202, 2377, 1724, 2254, 2378, 2121, 1725, 2122, 2123, 2468, 1979, 1984,
        1983, 1726, 2432, 1981, 1982, 1980, 1986, 1985, 1727, 2433, 1988, 
       1989, 1987, 1863, 2409, 1728, 2203, 2379, 1729, 2204, 2380, 1730, 1864,
        1904, 2381, 1991, 1990, 1731, 1993, 1994, 2434, 1992, 1865, 1732, 
       2205, 2382, 1733, 2313, 1813, 1734}], 
      Line3DBox[{1748, 1870, 2392, 2222, 1747, 1869, 2391, 2221, 1746, 1827, 
       1919, 2450, 2048, 2047, 1745, 2088, 2109, 2089, 2390, 2071, 2046, 1744,
        2389, 2210, 1743, 2388, 2209, 1742, 2410, 1868, 2002, 2004, 2003, 
       2437, 1741, 2000, 2001, 1996, 1997, 2436, 2232, 1740, 1998, 1999, 1995,
        2256, 2435, 2125, 1739, 2124, 2387, 2255, 1738, 2386, 2208, 1737, 
       2385, 2207, 1736, 2384, 2206, 1735, 2220, 2383, 1866, 1867}]}, {
      Line3DBox[{789, 1487, 1358, 1361, 1359, 2259, 1397, 1398, 1100, 1123, 
       1101, 2269, 1239, 1210, 1402, 1102, 1401, 1103, 2277, 1370, 1368, 2441,
        1369, 835, 2322, 1001, 847, 2328, 1524, 1525, 859, 2337, 1528, 1529, 
       871, 2347, 1532, 1533, 2291, 883, 1536, 1537, 2298, 895, 1540, 1541, 
       2305, 907, 1544, 2467, 1545, 918, 2369, 1548, 1549, 930, 2378, 1552, 
       1553, 941, 2387, 1556, 1557, 951}], Line3DBox[CompressedData["
1:eJwVzk1KglEchfG/WWYJRQk2aBQ0beoCWkEZ5shJA6vJawWFVooh1KiPLRjt
onAVTdJoFVKQkP0cHJ5znve93LtxUC8lqYjYlUI64mMuYiDv2YghfkpZKrIv
X/wVXsvObMSrnCw4j2/S5kvYwid+T+9LTar2IU7kx/eefaR/68eYwktujIn9
i3XMTu/jJ3hq/+EZjrxlRU9nIs7tGbzAMb/Oz9sNO4PPzjf1TT5nt/RFbOMW
t6x3pu/035J+oxf5vP7C3dqr+h1u811uzb63C/iAj/IPWd0ozQ==
       "]], Line3DBox[CompressedData["
1:eJwV0DkvhFEUBuDLjMSgsoTCEoWlslSW1vIDREcUGolihE4hSFRCN4YwJENi
SWwJCgSJDrUGM0ND6xeIZ4on773nvDf58jWOTw3FC0IIcaojIdzzWhxCjcwU
hZCKhZCVOT75YpRl8xE5zwKL3EVDmDYflg+88cc7Y+abMkNC90M+8Uxwn7V/
cZ4kx4pZVj4yY1foHiWS/yazpFxnjRhzOiWyjFJ2dFJymy0S9uWygioqSevs
yj2S9mlZSx0N1Od3Oht2h85HHNBEM620sK9zKs84oY12OulgIv9e59L5igu6
6M7/O7te2cOxzo285Zo+luz75SADnOv88Ms3q2b/SuI69g==
       "]], Line3DBox[CompressedData["
1:eJwNyzkvw3Ecx/GvUMfgmNBYlAmdHJNjdYwSqyZiIzwACXFtIjGII9GKFHEl
asDgjKWPwCoR5+gZeA2vvNvv7/NPTcyOzpRExCTJ0ohHXisjmrTIm99pfU9E
ZKsiPvSTL77JsOY+rksss+H/ihbLIsZ4YoqM+7NO80LCZs6tQsvZc9vRXbap
Zt57jdZRS84mp/tsestqPQ0kaeTA5lCP2LLJazMpWmkhb3Om097P9ZQ22knT
wbFNQa+4pJMueljwXbee2NzoLdf00sei9wHt58LmXh+4Y5AhVm1GdJiCzS9/
/LDu9g9zRDQr
       "]], 
      Line3DBox[{797, 961, 2263, 798, 2316, 970, 814, 2317, 980, 825, 1512, 
       2463, 991, 837, 1376, 2445, 1003, 849, 1133, 2400, 1014, 861, 2457, 
       1476, 1477, 1381, 1382, 1025, 873, 2424, 1250, 1251, 1184, 1383, 1036, 
       2419, 885, 1209, 1229, 2414, 1047, 897, 2359, 1057, 909, 2364, 1066, 
       920, 2370, 1075, 932, 2379, 1084, 943, 2388, 1093, 953}], 
      Line3DBox[{799, 962, 2264, 800, 971, 2272, 815, 2318, 981, 826, 2319, 
       992, 838, 2323, 1004, 850, 2329, 1513, 1015, 862, 2338, 1380, 1026, 
       874, 2349, 1140, 1037, 2421, 886, 1478, 1110, 1385, 1386, 2447, 1387, 
       898, 1252, 1147, 1189, 2404, 1479, 1480, 910, 1481, 1388, 1413, 1067, 
       921, 2371, 1076, 933, 2380, 1085, 944, 2389, 1094, 954}], 
      Line3DBox[{801, 963, 2265, 802, 972, 2273, 816, 982, 2278, 827, 2320, 
       993, 839, 2324, 1005, 851, 2330, 1016, 863, 2339, 1027, 875, 2350, 
       1514, 1038, 2464, 887, 1384, 1048, 2300, 899, 1148, 1058, 2422, 911, 
       1482, 1111, 1391, 1393, 1394, 922, 1253, 2372, 1155, 1194, 1395, 1396, 
       934, 1343, 2381, 1161, 1198, 1471, 1472, 1523, 1496, 2390, 1414, 1415, 
       1095, 955}], 
      Line3DBox[{803, 964, 2266, 804, 973, 2274, 817, 983, 2279, 828, 994, 
       2282, 840, 2325, 1006, 852, 2331, 1017, 864, 2340, 1028, 876, 2351, 
       1039, 2293, 888, 1049, 2301, 900, 1515, 1516, 2306, 1517, 1518, 1389, 
       1392, 1390, 923, 2373, 1156, 1195, 1157, 1344, 1345, 2434, 1162, 1199, 
       1163, 1263, 1230, 1417, 2450, 1112, 1416, 1113, 1424, 1423, 1169}], 
      Line3DBox[{805, 965, 2267, 806, 974, 2275, 818, 984, 2280, 829, 995, 
       2283, 841, 1007, 2285, 853, 2332, 1018, 865, 2341, 1029, 877, 2352, 
       1040, 2294, 889, 1050, 2302, 901, 1059, 2307, 912, 1068, 2309, 924, 
       1077, 2311, 935, 2382, 1086, 945, 2391, 1170, 1355, 1171, 1202}], 
      Line3DBox[{807, 1118, 1119, 2268, 808, 975, 2276, 819, 985, 2281, 830, 
       996, 2284, 842, 1008, 2286, 854, 1019, 2287, 866, 2342, 1030, 878, 
       2353, 1041, 2295, 890, 1051, 2303, 902, 1060, 2308, 913, 1069, 2310, 
       925, 1078, 2312, 936, 1087, 2313, 946, 2392, 1172, 1173, 1174}], 
      Line3DBox[{947, 1088, 1164, 2383, 937, 1079, 2374, 926, 1070, 2365, 914,
        1061, 2360, 903, 1052, 2356, 891, 1042, 2354, 879, 1031, 2343, 867, 
       1020, 2333, 855, 1009, 1491, 1493, 2459, 1492, 843, 997, 1427, 1177, 
       1276, 1277, 1275, 831, 986, 1426, 1262, 2394, 1176, 1273, 1274, 1272, 
       820, 976, 1241, 2423, 1240, 1124, 1269, 1270, 1268, 809, 966, 2413, 
       1208, 1207, 786, 956, 2438, 1356, 1203, 1259, 1258, 1425}], 
      Line3DBox[{948, 1089, 2384, 938, 1080, 2375, 927, 1071, 2366, 915, 1062,
        2361, 904, 1053, 2357, 892, 1043, 2355, 880, 2288, 1032, 2344, 868, 
       1021, 2334, 856, 1010, 1567, 1569, 1568, 844, 998, 1565, 1564, 2471, 
       1571, 1570, 832, 987, 2396, 1488, 1490, 1489, 821, 977, 1261, 2393, 
       1175, 1223, 1271, 1222, 810, 967, 1364, 1238, 1494, 1120, 1237, 1267, 
       1236, 787, 2439, 957, 1232, 1231, 1114, 1206, 1266, 1205, 1260}], 
      Line3DBox[{949, 1090, 2385, 939, 1081, 2376, 928, 1072, 2367, 916, 1063,
        2362, 905, 1054, 2358, 893, 2296, 1044, 881, 2289, 1033, 2345, 869, 
       1022, 2335, 857, 1011, 1566, 2326, 845, 999, 2470, 1563, 833, 988, 
       2458, 1561, 1486, 1562, 822, 1522, 1521, 2395, 1520, 1125, 811, 1484, 
       1485, 1483, 1121, 1098, 1220, 1357, 2415, 1235, 1234, 1116, 1096, 1233,
        1204, 1115}], 
      Line3DBox[{950, 1091, 2386, 940, 1082, 2377, 929, 1073, 2368, 917, 1064,
        2363, 906, 2304, 1055, 894, 2297, 1045, 882, 2290, 1034, 2346, 870, 
       1023, 2336, 858, 1012, 2327, 846, 1000, 2321, 834, 989, 2469, 1560, 
       823, 2472, 978, 1400, 1399, 1495, 1519, 1419, 2451, 1418, 1122, 1099, 
       1221, 788, 1363, 2440, 1362, 1360, 1097, 1473, 1117}], 
      Line3DBox[{952, 1092, 2410, 1168, 942, 1083, 2409, 1160, 931, 1074, 
       2408, 1154, 919, 1065, 2405, 1151, 908, 1056, 2403, 1146, 896, 1046, 
       2402, 1306, 1143, 884, 1035, 2401, 1139, 2348, 872, 1024, 1228, 2420, 
       1136, 860, 1013, 1379, 1179, 1249, 2411, 1248, 848, 1002, 1378, 1377, 
       1475, 2446, 1474, 836, 990, 2443, 1373, 824, 979, 2461, 1507, 813, 969,
        2315, 796, 960, 2314, 794}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJzt3V1IU2Ecx/GTYeVFsV4kKVKkm4EgCAWVbSvY0KhuLDOKkkZRwSLJy16Y
bdZohRMZEV3aTLFCEIIgOTEJKdhNjCnURMxZVHu5iCRbO13tnLUQUiY+bt9z
c+Dz3Px4eM7L8zzn8K+0Xm44VyRJUm+JJK2U1MP+9zlhwnEcx3Ecx3Ecx3Ec
Xy7eZA0m2pW42h5zHFjrLLslXM7l7ne7vg8Zlbicdtlzdl17wC1cThzH/98d
EUvbkYzruseVeNJoviNcThzH8ULzi3u6o0rG/fnQlUTf7PYa4XLiOJ5/vlEf
SXVnzK/DAZs+Ve0QLieO4ziO4ziO4ziO4ziO4/h4xc+KGxn7KcUlZfcCb/le
CMfx+ftI6YySuT/rOva5MTL5yShaThzHcRzHcRzHcRzHl8yzDhzHcXyhvsZ7
3OyuCsppqd/qGbh9OiZcThzHcRzH//VNfS9coxv8antds+Xdt6dx4XIutnvM
7sikzq++z4Qv1PanCrAfcBzHcRzHcRzH5+v5Oq/stI3X9e8Nymkp18/Ynp1k
3RvHcRwvbOf5uDAfeTDcEdRr/bY5eXTFL/bTcRzHcRzHcRzHcRzHcRzHcRzH
cRzHcRzHcRzHcRzHcRzHcRzHc+5dA4aE1zqhtlun2nSPrn0VLqdovtpSEw79
1v4P3tIxZLzkvC9cThzHcRzHcdG8tTWqO3F1Wk5Lz44W2fd6ek5fqpw4jovv
qyqnPnZqdVelCfvgw5tJp2nXm5dfWmpjqjefanq/fzYoXH5cTD983jdqNGjj
57qhettYnPGD4ziO4ziO4/ji++DzH48P2rX1sZg3uXv4FetjOI7jOI7jOI7j
OI7P7cUN632hD1G13dTrLz+jhITLiefWi7LqX+yk/gWO4ziO4ziO4zieAy/N
qrNcnyd1lvdlzaOrmEfjOI7jOJ5j/wNp3EdF
    "]],
  Axes->True,
  BoxRatios->{1, 1, 0.4},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0.015, 0.035}, {90, 330}, {-0.001192316036853207, 
    0.9832508179228275}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.502797651678445*^9, 3.502797777769007*^9, 
  3.503030966921875*^9, 3.503037215161376*^9, 3.5030383290773516`*^9, 
  3.503059877600828*^9, 3.529159267957215*^9}]
}, Open  ]],

Cell[BoxData["InitStandardParameters"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulate", "[", 
   RowBox[{"myPar1_", ",", " ", "myPar2_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"g1", " ", "=", " ", "myPar1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"y0", " ", "=", " ", 
      RowBox[{"myPar2", "  ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"n", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x0", " ", "=", " ", "0.3"}], ";", " ", "\[IndentingNewLine]", 
     RowBox[{"result", " ", "=", " ", 
      RowBox[{"FoldList", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"update", "[", "#1", "]"}], "&"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], 
         "}"}], ",", " ", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", " ", 
          RowBox[{"{", "8", "}"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"res", " ", "=", " ", 
      RowBox[{"Last", "[", 
       RowBox[{"Last", "[", 
        RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";", 
     " ", 
     RowBox[{"(*", " ", 
      RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
      "*)"}], " ", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"NumberQ", "[", "res", " ", "]"}], ",", " ", "res", ",", " ", 
       "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.502795860343711*^9, 3.5027959838269677`*^9}, {
  3.5027968502355995`*^9, 3.502796859163739*^9}, {3.5027968909829917`*^9, 
  3.502796993883632*^9}, {3.5027976619219294`*^9, 3.502797741068231*^9}, {
  3.502797822473177*^9, 3.502797828856558*^9}, {3.502797883868662*^9, 
  3.5027979098308673`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"simulate", "[", 
    RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "  ", "0.015", ",", " ", "0.035"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", "330", ",", " ", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5027974847184277`*^9, 3.5027975875194654`*^9}, {
  3.5027979553094015`*^9, 3.5027979577301455`*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx1nXV4VUcThyF4cYoWh+CFBgvOuUkgBoQIobhrIMGKa3GXQPGS4FCCa7GL
Q3G3QHCLEooE/+DLvnuSuU3+6cP7bPfO/s7u7MzunrPFO/Xx7WqXKlWqQ5lS
pUrz7b8L3y0u5LtnpmG5f6Ruj90J9R0bdG9T9pW/8cIx+601l2drXi/7mCaj
s94x0r+6uNLeI1jzDDlufyh6+plRcmNw0ArrXM375R0X4fMiyrD0aFarmOMf
mu/O55epevFYo23JvGmXhc3XPOSFV46+v8QZwyJunC9YcqHmFc792uv0oDhj
waL//2lernL6XY7f+I5mrbvky7FEc7/XbWcMcYkzLmUv/MsfE5dqPvBes91v
XsQasacj3uf6/KfmOTIMONRuYKyReWLosdkDQjSfO8zh85V/Yox5xba6ZRgY
qvlg+3RF3pyMNkp+yVnR1WG55k+mJ6TZlS3K2BHeP9eEKJPvK5mh/JIrTw10
vlJm6mDP4BqWVOoPneGelzoNeNw5XOsMf35k6LM5F0yd4VJnuNQZLnWGS53h
Ume41BkudYZLneHLr3nlHbrf1FnbWXjRoPljTZ3h2x92OzA3wzOts9QTnWOe
nN/qEexm+dqnnmOB9va6P8P/WVP8Z8PjptYZXrRNx2UtLps6w6XOcKkzXOoM
lzrDpc5wqTNc6gyXOsMPFJ5TtMVQU2c4uqGz5OgsOTontI7+cfdGH0uqTIfT
vs5fzYrO8Ecd6qztvCFE6wwPG7Q7Tb/nps5wqTNc6gyXOsOlznCpM1zqDJc6
w9cPdWh9o6qps9ZB/aGz5OgsOTpLjs4fGsR7eQT/alkwOvuA/L3stc7wMw1e
NfYe6mpFZ/jssds37Hpr6gyXOsOlznCpM1zqDJc6w6XOunwruxutdpk6w9EB
nSVHZ8nRWXJ0lhydP1V8OyV8UFtL8S07loQtrab9Bjzb9Bt9OrhYdH+Gr5g0
ddjgCFNnuNQZLnWGS53hUme41Bk+eum4BV/LmTrDaS86S47OkqOz5OgsOTpL
js6jp418uGtjR83RGV57+95ioXP9dH+GH994dUjCyrtaZ7jUGS51hkud4VJn
eNSDXk3n9DR1lvajs+ToLDk6S47OkqOz5OgsOTr//x+hXWx0hnd++6rdzVMe
Wmf4wHMJY/dW8LWiM1zqDJc6w6XOcKmztBOdJUdnydFZcnSWHJ0lR2cbe5TO
kqPz77+NLewR3N1GZ/i1Y56vrr9pqHWGG5nTvX69wtQZfnVV43sn7ps6w6XO
cKkz/PCR8JtlEyK1ztJOdJYcnSVHZ8nRWXJ0lhydbexROkuOznYv0tYJHh9g
ozN8W+WC49eONXWG5/a+O2VQPT+tM7z60aYt4jtHap3hUmd4nn9bxm8tYeos
7UFnydFZcnSWHJ0lR2fJ0VlydLaxR+ksOTqPazupRfigQBud4b5tJ6S/Pc2M
N+C/b/Yb5XOwmfbP8JWPP41tXMDTis5wqbP8XXSWHJ0lR2fJ0VlydJYcnSVH
Z8nR2cYepbPkyfpztb42OsPr90xzLHu6Rsn78zd+x+fxihv1/Ixk/fkbr1nd
v6hHJlNn+H/25yS/m6w/J+HJ+nMSnqw/J+HJ+nMSnqw/J+HJ+nMSnqw/J+HJ
+nNSe5L25yQcnZ1Lnvhn18Z+NjrD/ZevqHDzo6/WGT7Tya9M21G+Wmf4pne7
HtZ576F1lvWjs+ToLDk6S47OkqOz5OgsOTpLjs6So7ONPUpnydF57Pd+XnqA
jc7w7AtP7XmSrZ6On+GnAku8ulDG1BnuGH91r/0LU2dZPzpLjs6So7Pk6Cw5
OkuOzpKjs+ToLDk629ijdJYcnY8ucH/2NeQ3G53h27aHl4zYWlPrDM9YKn5b
9cymzvB7+aP8HWq6a51l/egsOTpLjs6So7Pk6Cw5OkuOzpKjs+TobGOP0lny
NrM67l1zOdSI+vTPoN0bnSw/NNp62j/zQyO695GQJzOWa075c1tTXeueL9SI
PX8lOnxQE81btdz0b/d8s42hF4MqpwptZunx92/vWp/0NUasM+757FmmuSw/
/O8BvYPHt7KE7V/z4sZ0Z6NDzMjcV53+1FyWr++z3y+4WgdLWI90Jxbf8LZm
3F9zR6uIhZo/a9hpbLNv8bZzlf0ezc8s0Zx6huTue/DJjDnGoeP1+4WX7mw5
MDvav/lkT10PnHpKD/4w6mazxZpTT3SqwS/udF9gWGofnmlfoJvFpW6lt/va
xRnUc2STS1hg5p42v/t/f/K5l2X4pIkZHGt5WuddqDylc9q5msfObexy9mdv
6/mGO4u0j/9D88cB6W5fOBFr8Ltw6t829V+/B8PmGSUmdh1rH9/Xcs6+9JnS
YdEG9cClnp0Olc7pEdDfci8kukqXSw0M7IQP6pPL/+EOD4PyIRtSpWkcXMaS
Psp6pLLrbL3eC79drHzLH3tX1nbCpT5wdIazniz1p/yat5OuPm1jcsrD6beU
Xz/s7NYCo811VPgU52Pj0nW9pe2kn0s74dIeOL/LuIC/6/Ni7aYs5jok3HtJ
gexr5kTp9V45vrCH8SXtgUt74NjDuIOXXFQvruyNGL2OB4/2G1bcoU2kgR+Q
4xp7GL/SHri0Bz5us4NRwztOj2s467f4Pekf0FNy+if+IV+pNlWrOp/SzxEu
7YRLO+HYid+Ab/Z7n/nC21i9viT9EjpLjp34n+FnGjic7eFpxU44djK/wFk3
wE44djK/SP+GzpIzfvFjhct9fFXmWl297gePGrqv4tVnXtpOuLQTLtc34G8i
c23MViZW6yn9J/rgP4v98lP2hW9Mfwj/vMav1qiKT7Qfg+MP9f6a4qwPaH+i
OL+r/Ybg2IPfZl7AHvj2Osa8u0VN/wyX/hk+be2cwGy+pm5yXsAeyXle+PkR
pcbdDOve0EgWz3/jQQf2dZ22v2HyeP4b/9O9XoTnMj8r8wJ86cnhszs4xhjJ
4vlvXOZN8Nnz2wXn/MHUU8472Hnse1wRF2QZs/ef7a+z+ut5BO7br8f5nC8a
aT3hHY/fr968tLe2Ez7s54VxzYvG6OcO336/b9lpm0yd4dIe5ruKRQ+Ehw/x
s2IP/GKmpaGrq/poe+A8X+JGuMyD4JmuHK2TKYNpj5xneV7MpxUOVD+f9kgj
g9+F87voAA9efOrKLJ/nWge4bO+KD89CAh8NsDz/6JvwaaiLnpfhsp/Ds/XY
3bD8wiraHnjBK41adyrgrXUjblzxy9Mrs/+tamCnrJ96KP+y5ONJj3OZ40WW
px4Zl1JecuZ3WQ9clkcf4oShm3tesKu9XD8vuPRvxAnSv8HZj+B3qaf3oRHl
jk14oethfpf1wKmH8sy/sjyc8sQVcr6mHuZNWQ+ceogH5DxLv2Vem1eu0vlX
bf2s1A+X9cOpn/ldzo/UzzwV27l20JGnDXQ9cOph/pXzGvOgnF/0+Q3l5yN+
mbT90UBfbT98/swJq0sFJDl3IeYF6sE/948LaH3iia8VPwln3qEe6c+TrYck
8Z/ogB/LEr/5eGxpd+3P4TUDKoe4PTbXwTQX62Bw6c+ln+R38Vc79g5fc3FF
U/27cPI46pH+jfL4Jf+z5Q9NaWDm3XDpP1PyY4zfNo9yZW564kdtD+M9uF+h
J6MKmPXD5/9bI93KPWb90j8Q/0te+trH1HMGzDKqeCw8usvpNxsu/Qm8xvaY
Ak2D81ke2df7q6uHu3V7nzJtRhxfoLnjuKOBI7/1K6cmk532jVmo+biIyXcn
DDI5fgN+sfyL0h/qLNLliVfbZfTMUuudydmng1MP3HvVTy137l+uy+94sNYz
f51nOh5jvLcKNnzrFI7T+R39f/HecZde3yuh99/hUy/VO5qziJuV+UXqZowr
VnlC1BzNb8RVtUw+7mq0qf/wo12nuZo3ztUm/RH/Jtah71eeGHNznk092C85
eYo8p4H97Hfv/Llz8e2Fm1rh7M822VB22YfRTpqzn5hwbs26zNUK6XUAOPpT
/v8/FtrF0tIp5EGhCdV0nAO/9f6P9zOum3E++zsyH5H7PtTP+vmZM9n797rp
reuHxxd56Lxvrac12TrtN39yzCd9SIUVR/Q8TnniK+ZTOPEqv8t68tJX99s+
djbjJfj2mU19Jrb30vGS5ipuSRavbuxn6Ts/w9xXvr5GsvWNb1zGOfBFAaN7
PZsfrcuzHijLp7TuKuOZEqfadcswcLbuPx0H3nH9uK6BNeHXTKlvrAw1evdr
PC9VaAPLkstZel5xPaPncXnOanL1gKd52i83ruaYte3OoHo2/kTm7/RbWZ58
ln77qff4pllCo/S6QUrnYeS8jP/Z+4PDIfsCzTUnD6We9lMeRd3+4b6xs9as
3ttaLTNqzt+4Iry0ny7fIN9Ln/g8ITac32W+brata8WRbrWt6Fl79La7gZlb
Wm5ndrLbe6iuFXv2/1vt467PrS0Tds+88vfIOlbyUJvzJ6POLa/2eKmuB16m
TaVJA0L+tOHYw7zfpUW/r/3jG2t7vjm9/KletrPEey6c7z7TT9vTLrbQEvv4
DpYWL3bl6jOukBV/C8ff4g/l+Y3hRzPf2BW4RNcP/2F57/1vyi614YwX/Ibf
3thGhTw8rVtWWxu5OswxQstGlPMI6GTJtW70uWxHfTS/3ylkT+Cjzpbeffun
D8vtq+2kvJwX4LWaBdfe3NP0J/gfOHmlPC8BpzwcfwXHX9kHnxhU74cFRocb
xa/vutbN0m7Mz31nuprz14qcj7qEe/XQ9WCn5LT3//P+3t6WoEIT688M8E3u
T8YH6PXPcx1+z3tsjYpDnHpZukc0rLnhqo/m1PP3pLJdHJ/6WDPcSBtmnfuH
5rvt9+VqMs7My+T+L1zuV0YWdHngVHiese1qnjWBTftZjLVHF/+TxVn7T7nv
lmyd9j/2iWScQ7+93G9QzNfM/S0brmV8/PJKae2H8W/xS076v4nKbE22bvyt
fvJr9KSe8AZHi7qW87Qy/8Lfrjpyr/44Vz2PUP+AHWX7zPepq/NE4oQf5/kl
7CroauU5yvXYQyf+HjAo9XLtP+X4lX6J8YJ/kOOFcdf8Ub16aRIa6XHB+Bq6
vPGiD52baM747b4ld+cRe7ytMU/+ih+8bbHmUn+ZF6A/48irb7X2JQ800H6D
8dhv5+sl8Yuc9TwC/+i4wuHcXW8dF8GxnzgQLuNAuBzXxf7s4Bbcpqu2k3FB
nLD8ULZXaQoONOj/jK+hVdyL/3zAHBcPG6369+vJnpbo9bl/PX/ex8r4pTzj
F055OPbDpZ4yf0E3xp3UGf48R9WEzRUNI9l6yDdOf6Pfwo9NPBDm7W6ei4Mn
HPrFuY2XvzF/R9c5X7zma37u9tYSganMdkl7sF/mQdi56nv8UDXI0vvnND93
rWMxaNfjausrBYf1sfFjlOf8GPbDObdAeeq5kenMvPBJ5vOi/N8fNozb8s7H
SpwMJ06mPPWUTd/hVIFMvtrvUR6/B6f81B1Zx9cYEqvHu8zj0CG4xs524cF9
Le9LfRqUN7uH1gF/KHWgfPf0qVeN6eatdYBPGbzy1hGHRloH6knrk6Pb8Jlm
uyjPPIgOcKkD9WxdvCrSsZhZHk554mQ4eSh5B/zitS7G59AYrZtsL/q8ynaj
WvCp/joPpV3wK88bhLQ76KbtxA/nz9w75H0p0064bBf10K+YjygflON6iVEF
Smr74Y9bB7s1r/bEoDz1yHGaK6zGCPsJA2zaBU8Tf2f2WDfT38J/ad31bNQF
N/184cV+SdhfM9BV+yU49tNeOO2lfuJz1oeZF+DbQw4cPu5QRbdL2o8OkmMP
9WAPfhXOOif1y3yTvENy/KR+n0j5eeJ/+Kbp/XJ7dX+u5xHmwSZj1012i6+j
dYBvXvN4R9wrdx3f6nh13RXfhj+56HkHnu7iwR1zTnvpeQROHMj6AFzvVyp9
iOsetx37ZtsiHz1/weX8BZf9Bz+TrXiTVUHnnbWfh/+b5+bEz908dP+B5z65
af0P2b31+Q145Z0Zwj9M9tPrBnD6D/5f+mfsYfx+ejLt+t7omlo3uPOlxlue
+fhoe/R4P1Mh4Fked20PfHrWLL6Dl/galGd8/bpo1Z02FVx1efjT4NsPyzr6
avvh0i/BOf9Df5bjl/iQfmhZ88vpWrfK6N+Fy3MvcPQnb01pvYt+ez9zhz+t
e5ro9VLiQ7neC9fn81X98Ovvgw/2m/JYx+Hk13I9BE6cSX8jjyZeon/C6Z/Y
CcdOxgVc7v/yu4wLxgvlWU+jvXC9/q/aRV4v2wWX7Qpq5XMheLynTbvgsl1w
2S64bBe/K9tFedkuuGwX6wmyXXDZLtYTZLvgsl1w2S64bBe/K9tFedkuuHx/
hHUV3tOhvaxXyPbCZXtZr5Dthcv2wmV74TJ/53fZ96e9lJfthdNe1jeoh/Ve
8jLKuz+Y+UPVi+Y5B/i1KbPqFT0Tpf05eVnL7ZUzjBtoaN3I46RucKkb9Ujd
4FI3uNQNLnXjd6VulKf/oBsc3cgr4fQT+g88w6evaR5WjdX6kFf+WSE24N+2
PnodmHUY9KG9lJfthdNe5h3yxBl7mz9eHd9UrxfBGwyaceZ+T7N+uKwfTv3E
XeSbI8flGPbxhLmeQP6Yp/Dm0zUnepv7Moq/Ktzj6/ODvjp+gPv+cmTc3Qbm
78p1oWTrzOMDbNbNWP85nPvL8/tdzDwLTlydbN/qG88zrP7mQkF+yddtvtXP
ujd5IuX7Wn/7PH9/jM4r4eSVyfa/vtev3o/guZN/OfXIkiG/g5u2B766XIXd
3b2b6X1z1p3qRw+J+rFcjI5vKb9x/UHvp0neN4ez34edOn+cfq/u7oFPdbvg
6Iz9kmM/edbNpTeHLy7URNsP92/Y+Odp//pq+1kHc8l3zTP+Q7S2n/Kst2M/
XOZf8JK97asE7jHzL83DRl4Kq2a+twJnfxP7yYM4x4798IWFf+vSuaMZF8Gx
h9+Fow+/KzlxJvuDRUs4FY8b5ax1Ix8hT6TfUn5DkYuez+JdtT2Ud3lX9o80
tzx03kR5uV8m9yXJOyRnfDHfxf1TtFbbY4+1bnDiT9rFOl6RhqnsP7h46fiZ
POXLx7pZTu5013kN/rZjo8WpNznk0hy/xzoq/pZ8hPkLf055/Dn5Gut4bYd0
Le2fJVI/X3iZJ3VLv7vVSuvMOtu/fe/l7ZLFW8ex5C/s++Ov8Hv4SexJKd9h
/O6pFbK5y1BD/y6cdVqeI+tRPEfGI/zXlY2H5J4Yqf0P9bRyGFvw47NYrSfj
zj3j5kq9mzbUvwtfv2Hn0CbdmujfhfO71MN6cq+VN0rsXldC9zc45en/5EG1
vyZUWrM10qAfUv5uwXxHH8+I0b/LOrPst3L/zuFFi5k1XEN1/Am//Nq7hsOl
EGNP8QoTgqt52+RBnHuZmftglSEd3fT6OfFh3NuuYc3eeOl1XeJA1pPhxDm1
01yK37ndQa93Mb8nnAx+sbZ8VR230N+IW4gTmK+xk3iDfmizbqD20+lvcOYX
yuPP5bor/QR/CMePyfU92iX9GFzmm8n2awL6W6J/CDo8/ZC7Xp+hfMhs/xeP
f3bR543lfh/7j3JfgP1Bm/em1f6g3C9AH/yGjGfgxDPEvXL/i309uV+ADjzH
wv3dey8P8dF+g+dI/cS3cl+JfiLXz+mfnAvavDrar9aVetZk++/f97/WHl1U
w9te90PZHxi/cNarD7UKOhAYPj/x+bbubdMuOe/DZf9ZFRL2Kq7LH0bAxnq5
PYrZvkfGc691zHH2yjIN9Pon887JtCMDfrvRVK9nwonTiBPkPMXzvVR/Qt09
GyvbrDvBGXc8F7jMC+Dy/Axc5k1w4n/sYZ9L2gOX9sClPXBpD1zaA5f24A+l
PXBpD1zaA5f2wKU9cGkP41raA5f2wKU9cLluCZf2wKU9+A1pD1zaA5f2wKU9
cGkPHHuYl4kfOMdC3AIf0fFG/NDpvta8a0fnafx6gXFxcr9tgYO72eR9+JOu
V9fl2l3LR9cD/2Nq3PVmWfz0+GJddPiAH0OvFFqm40w4eUSy/fEk+9rMO3J9
lXxKzuPMO3Ie4blwTobnwjkuztNWOxuUt/WtKM1ZlztRwm1Rx8JRet9Zr/vd
t3rU3/VEP3fiATmf6vhWceYdfZ5WfY8FTvzwdduWRd3WxxrsaxM/tPn94W9F
vGJ1vsx8t3jS0RWPZz3S/pC4Qp4P5FwN9rAOA++8pcLV7t90oDznXmS7iEPg
xMn/Fz20i8Xodikh0vpCr/OT77dyD2vVfXcb3a+Yj3ifjriCeIP8l3kHHcaE
dc701zNXHU9Sv/FsxqtT/9bT9TOfss/C+GI+XRZdP88zR3M+heOX6IfUzz41
/RYu11Xk/i/lJae9cr+Pfi4558Rs3pNSXJ5LJP6R57iIc+S5aOITec4ZPybP
FX+IOuB5fqQ573e8nXlp1sxxOj4nDvQtPb5vpU0x+jnyu9ciK8y8ssHch4Kz
39c4qHvwoNRzjKXNr263d2ptmbmiwpI7Xxvr54id0k/CWWf7cDHet+epRcb5
kN6Dw4PNvE+fg1Xx8IG05RyWl48zIvI4TI7yWaj94YYPl26f9Tb7g9zHT3b+
J8l5m2Tx8Ld4if3xZO9FOpnvV/Jenny++B+Zp8Dlc0dnxuOu3Ut7ZFvno/cH
5fkZzuOldK5PcvySjJPxY5LjZ2TcS5wsOc9XxrGMU8nvOHwa7Z3BjBv3zL/m
U/pejDHx666iN1bO1v1n2PPdNar8U8BarZPT/X8CzP4g1+fph6y7Mi7wq3z3
CfvhAYMfXe6Xw1yXY7zwvRT6OeuQ7Avr92IU55wtnP5wtd8Wu6ktHmv/z3zx
7kqONjMXPtb+Hz95vM7mumMmRGj/zLjovKbEaOeykZqTpyz7aJemZPFI7bfx
n3X2e4wYMfO53l+T/ZN+Jfsn/Zz5V743B+f9BcYX8yz+lnr4XVkPXNaDPbIe
/KGsBy7rQU9ZD/1E1gOX9dBPZD08F1kPXNbD+oCsh3lZ1gOX9fB8qYfxJf0b
8arkzHcyTks23yXxh8nWnZJw5kEZvzHu8CeMLzg6Mx7p//iHNwWdYzu7++px
x3iMy9PwrmMNc79A5qfYI9cr0Eee22QekfUke18+yflM9Jf146+IPysOfvu4
+7sbhkXFM+yPv5lx5YlbyyeaU75DWIZP5dyfGB/ST3WuWtX8Tmy2HSXLhbSN
1JzyJRfce7C+faSxQ62rUz5/vqgBLuliNKc8PChb266zjpjfm+07Mb7CtImx
mlMeXla1l/KvguunyesWZzxU8yz8hn9f+3Xf/PBS3odSvKzyz80Lp9ng9sDc
N3/2W9miVz3ijBxqfqH8BvsbvZunMjnl4aftr59b2df8Pm21PRna5lseqznl
4ePVPEj584cutVtU1OSU94/tEBWVP9ao//P6l1+/mt+5dak9pmexnjGaU37R
loCfjrnGGJ/UewGUn/zl919Xt4w2bhU4mGmTm3meZ/eiljOGhkXqeY15/6Wn
3dEelmu6P8A/1GrSJvLpY/3c4Qv7Duq2o4P53OHy+cJ5juivzxUI/eFSZ7jU
E94xl13f1u/M+Zp5LWL/j7lDxy7Q7YI3L/V482jLU90u+PS9g6Z/7mG2Cy7b
BZft0ucKRLvgsl3w1atynLabbrYLvmVy4nsQPF/5ngXPV3J0IL/bPyqbXc8V
7lZ0gBecUGdtk6PmeIfbGQM3/Bpk6gCXOsClDvCiKy/XWudq6gCv/zY095kX
5niR667jU1iPpf9Ljj6So4/k6MP67fJrPzgMmlJF9xN4r5r7hg69cUPrA39+
P917o6upD1zqA5f6wI0HQb/PqGrqI9eT0Udy9JEcfSRHH8nRR3L0Ia57O7FQ
bNrFjXX/ge/dtSnyyvxzWh94C7tHf1eaa+oDl/rApT5y3Rt9JEcfydFHcvSR
HH0kRx/J0ef///iWHx16Of3x5Gwldf+BB50+Ojr1gqZW9IH7Xq63rYGnqQ9c
6gOX+sClPpKjj+ToIzn6SI4+kqOP5OjDvmSD3qlzF6rhovsPfOKaiS1qpfHW
+sA3fkl426P9Wa0P3COi6evPqUx94OjDvC/fT0Q3ydFNcnSTHN0kRzfJ0U1y
dJMc3dhPOe7/0vf13/W0bvC1zSN/tats6gZfeimy1KZGp7Vu8BGBlxzmOkdr
feS+D/pIjj6So4/k6CM5+kiOPpKjj+Too/ep09zYu6xuQa0PfLTav0YfeJmO
s/tdtXpZd4hzLE7qHAv6yPgcfSRHH8nRR3L0kRx9JEcfydFH8mT9p1pfy/MJ
Pv4zr+dN3n++8SNqn32HOA/jqs7DEFfLdfVk/ScJT9Z/kvBk/ScJT9Z/kvBk
/ScJT9Z/kvBk/ScJT9Z/knD0IZ+K/+Nz9jjvhlofeNpRM2PKnvDTOsj8Cx0k
RwfJ0UFydJAcHSRHB8nRQXJ0kBwd2Afxqv485GxUNT1/wdMsiZ5Rva6Hzr/k
vgn6SI4+kqOP5OgjOfpIjj6So4/k6CM5+kiOPuzzHivapF6qhfl1P4FfUOeg
0EfuC6OP5OgjOfpIjj6So4/k6CM5+kiOPpKjQ7vtGVqlDq1msRb6o3Das1d1
P3mi9p2LNGv0a9u2Zh5xd166+hGDKlpYN8DPvFT7ZTLOsTv68eTfG4vbxDkb
1O/KfMrRSPxdmU+N+iPxd2WeOCcs8Xdlfr1S/e6W3bsjCzU188dtG7KWLFXA
1fKx35+u+ZLkxYPUurdH++rpDE+zvXVqTEt3p7SLzXpIqs+J65O0l3bdUvXL
di1T9ct2dVb1y3aVVfXL/Df84LSz9vHeln/TXt7YJM7Mf/erffCGr6uOG1nM
zH/rZ/pjeKqXXjZ5fZoLieui0v5YVb+0/5Kq38Z+VX/ah1kT/v7DtL+Sqv/u
gsTv+2H/nbWzM+y+1twS2WBozdXtPPW4O6j2ERqs6flqSlvT/uWBF4YEt/G3
yd/HqfVYaf9LVb/MT6+q+slPGRetxXcG8Bs13jdu7RHgazNeImb/4eyxt43l
Ysuf2jzxt9P6H1LrkPnndHRLG3dX279S7S/IvHuCWp+U9r9S9cv88arYN0Hn
JWKfjv4/vNCPpVKdMr9XQHvbiu8Y0N5aD33mh3u1sGnvy7rnDgY27WhZMMn+
9JFiTfTz6qj2ZbZN25/rWJI88YraN+l95EPziQvN9jZQ69WyvR9U/dIfBoh9
H/pbuKpf6uAl9iXRYWS6/B2Cw9rb6NBefCcBHeqcaX4psKrJ0aHf1qZ3djl1
sZTYVrBDrSOmDg/VvvB7dZ4THfxzx82zn9DZ8vxe72bzxpk6HFfr7VKH4ap+
qUOMOKeHDm1V/VKHC+K9cr3eOHhmk+BTnWx02CLOB6JD0dsV06fKYnJ0eFXq
8vuvVbtbWje9OLbDGietQyd1bmSvOk+CDtfUPumkp5c6ed9+qnVwVfuqUodP
qn6pQ6A474oOEap+qYO3+F4WOhyOytErfK/5Pjs6VBbvuaNDqNeWkh5fbPPf
3xY3y+dROsBi92HOuS53zPz3sdpf6KXOw6DDr5//vbCrZ0/L8q7x0w4nyeNO
qn0H8l90GKnqlzrEiv1NdGiv6pc6XBL78jrO7DB3sv1G830HdNgm3oNAh+JH
qzgFv7TNZ19/35fJH2jJ77+5XMarZr7WhfPD6n15/dzV+Y0Q9b1H4qUsKeSt
X1T9Uoc+4rwEOtwX5wzRwVecU9Xx0vdzFCEmR4eq4nwjOqz4fi7xoW3euu/w
z+sD0/W1tJnT23AOLKZ1eKr2vwqr90nR4ZTaLxupvieJDjNSyE8PqfqlDi/F
/ho6dHya8IOHl8n1foTYp0OHBt/fu5xjcnTYIfat0KHk9/cCrtnmpx8/xtQI
HtXP8m5xwwfpa3hoHbar8yol1XusxM9eOe6e3dXZNg/NkEIemupTYv1Shz3i
PAw69BPnRdGhvDiHjA4P2814+fWwbR66RJxHRQdfYT861HHcfGLXu/6WIQu8
/Gq29dBxwr9qH3OUej8XHWZ6Lmsdfsc2D3VLIQ+1qPqlDglinxQdtj77siJw
kcnRIUDst6JDiUVeo+3rmBwdwsW+JDoEC/vRYXjfvv7hfX+ztHG82zN/qDku
qqr3fD+q77CRZ+UV78ujz4Xx7SO/+tvmoZNSyEPHqN+V+tQS7xejz6vihyoH
57LNs/4S3+VDn85Xsmfz2GGbhxYU9sOb50w8t/Cw6upib12f6fjzZ5UX9Lue
+L0v9Oyr8gj5u9HzcrXb/bmR5U7+7/cJntP5TlzGxDhc2t9SnO/S+5siPkTP
KWo9PLc6B8VzKavmx/bqPAC8hZqX4cx3G5VfZd2SfPBvxS+6dRiUbbW5L3xG
+W049ZdXfrjCwcT34OCthP/HrxZT4/qK+s489UeocV3pr+/vbd3WvJvwD/Tb
tEdOuvkHZ7A4Zq7gVLPRNf27BXYkvj/OPjV8kcqX4fTDUGtiPeRTevzy/SLF
ee6VTiSWrzI5MO58+UjNb21LzJd3uo+pPbDUM/27uVW/ks/FW/Urac/HJVn+
mDu+traH/vPiSMbnwdUsllb/jHVZXtPcj45xTMxPu7S+ku5WGXM/mvM5x/s/
iR55/qm2U353DntmqvM20s71Kq+UdqYuNtsSlNlD20l/3qTO8xRV342Hc87n
88JEjv3w2U2/f0/+tLZ/kziPBF8g3uvBTneVJ0r7N6i8Utpvp/JH8lDGXf2q
2SIDH/lZqh77a/HBjuY+KeeL6jVoniPDzafa/iGqvPQDw1ReDMevOqr8Lv30
qUNcMkRoOz0Vl/ZvVHmltD+tygdlHs25msWbEs8Do39rkYdiT02VZ20dNMrt
7o0b+ncbKy7t+VXlffIcCOedWvX6KT4syXkP+NUN39+nvqD1dBZ5H+Oa804j
HGNK1p7rYuV316k8SNpzS+Vf0h7qkedS9Ht/6jvz6BYs8iz85AaVj8SNDSkx
4M5T7Zd2K17o+s1SPf80/eQ/Kt+B6/MzKt/BTuz54fuPJdm/Q7cJIq+h/GCx
b4WdFVW+4OcWm2vBqTPanlqKSzsbqXxE2vmX+N4X/Lb43hc6y3PF2DkthX3A
9CJPoXzC8//eb+I8+aFMLcI+PK2efL/gG3d0TRXfv623zl/qi/xlR9LvhSbh
6ABHB9q1ROQR8EiR76C/g4rPB5/PVqvGJXOf65DII/jdOqr8brv5haMXms+l
icoLlnsazTvONZ9LmIjz4XdEfoE9N9V8+k+DwAUHT3vpPJdz3V0XZPm14CYv
Pb7mi/gZvknE7TwXff/LwM5r76Tz1HFFfhWX8rvo0EGV/119l572FhFxLHyN
iIepv4WK6yrfGdrO5ZhZf6iIA6mnnYgD4c9EPAmX6/DMm5dFfAsfIOJYeErr
+cQVaVsumR0395rub7zPgv9kXMA5R0d55nFZHi7LM8/K8nDKM8/Kc8LUo7//
LOqBUw/zjnx/gflRcp2PqHmqt/3fW5+5e1r5Xbj8XTi/y/wi34+gfuYj79ar
DuZMV1HXA6ce5gX5PoXO98U6nj7nqfz8CLfc+za/bKrth6/xuBHQ2TPJOUmx
DkY9+vy5er+G8Qif7/6yvtVi1iP9cLL90yTrKuigvwPffsSLhy0qab8K33Ly
9b0PB8vocQ1vPHDNwiv7zHF3LAX/Bh8ctD60+rRYvb+A/zmzsW31hvu89e/C
Q79ODexaJ5P2e/J9ZL2eqfxJ0bQ7Ij8UaarthOPfsBPurfwP9fD9572Npg6a
YnXV9cCH/W141p1n1iO/A097JUf/DccS8wXiEHiWI4n7XzbnZl+ecUp6bhb+
5a/kfoD+WUTFvU9rnh6/ME2c1lnfd7NwYsj08c5a58oqv/6k8nraG638IX4V
PkT5twwVc007fsDUYZX8Tr7ih1PY35TvuaAD57sY1zx3zufIuA7e69KqFUVq
m+dj6efVJvW/VsRphe6HnNNgfkcfnldk5gEORTbX0PyF0iHH2NTuZ/8ubcX+
MJWvuV5Mvg7AeeCfymU9v6nhA82PLU3M45zudTswN8MNzfurPE76Q/QpsGiS
S/u80Tq/kOdL8av52yiuzqlif36VF3Tvmmnt9d7OVnhbtZ4Q1vugV/GZnlb8
ZLUU9pV+UvssdTO1POBwy1HX007F7V6V3x48X72K9m9P1D6R7Oc31H4QnH5r
L/Z34M0Ep54Car9D1l9G7ZtI/v//+VtcHRtUOmTcAHMcjRbrJ3DK87v0Q7hc
T+gh1lX43YIqvi136Pu90rc1LyfW8/U5XhVPynUVzl9FxX//XtA9zeW5I72P
r9Zjh+T5/n2b88nj2/84fzJFrQeGTyyevVVxi36+BVU81vP9knFj9lm0n7yk
1hWLrE78LrR+f0HxQorTr3ao/Pea3ff72iI0P6T2f+VzXyX2T/V5DLGfiJ3Z
VH8YFtXsYuVXTbT9lVV/KP9m8Inhlz00b6r2496+t64ML+utuX6ftKzThfO3
vHR/7q72+2S/aqnqgfNcFqu8SeankSpvyjg6kfO7l9R62phrk9ecm5/fmiyu
3tvbUszh+cvhP/6k/XYHxY+r/Zpk8+A37q84vxsg1t+oP5faF7AczxhwxamA
/t3qKh+x5N7erfSmotZk8+O3vOO++i4xfI3iEYrr+F/VTx5EP8yiuFxXPKj2
TVy2ff/OcITWx0Ot23eo99vFee2/HtTnK1Re08L/y4HnXqY+c1T+sk59Nxg+
V/HVimNnY1W/zI96q/VGyRPUvonMa+xVfHJZrWfq93HUuAtR91PQ3i8fk++P
0K71Kt8p5F2j8e8fzHhmuhqn8ncbqPr7qfqp5x+Vp2T0iO9RdExF/Xxbqzwo
uG7qoMCPVbVuOdV6uKv6Hi/8R8Gx56yqX9ozXqzzU57vhcp8TX5HFDvPqfE+
5kCvXZdOfqqv5x217pTf+/rRhR3KaL89UPnzSOXPGafP1D619MM31frMl3eJ
7wVTv5/Kuy86TZuQqlMerRvvxw25VmFqnU5mf3uoeBG1b6j3lwXXeauqn3EB
36P6P3ryuz1VP3x9/X7GBVlcNee98vun47rmneGm7dmqeCm1fwenvL3g8WKf
C/5KcOwMU/1Tjouaap9L9ocuKt7OquJt+BjRT/jdKmK/iefF92BlnAwnHsbv
EY/JuBFOnAlfquI06ecnqjhNct5vlfZQv4zb7cv+Nz8q8nQ49ct2ER/KdsFl
u3zV+ry0f6ran5Kc921lu6hf2pnn6X/zE2I9AU79sl3Et7JdcNmu8mrdXtrv
qtbhJef9X9ku6pd2Zmnz37yrWN+AU798z5H1DdbnaS/vQ8n26u+sivb+rOJz
2S53Fc9LznvKsr3UL+3P1vC/eXexrgKnfpmHllDcVX0PFu6ruNe95Jx68qry
+Dfejw7dt2D9hY41dDzDe1JSN7jUrZLKX6Q+nip/kZzflbpRv9QhR6X/5tXE
OhKc+mU/Sa/s7HGqb679jibvr+xc+/L7dwzuaU49hRM2uW/cZ+rG++A3Ok/+
acL+Rlo38h2pmy6v2osfLqL2kRep78Tq9RnFlyhOPYvUPsXu5f2X+Pc161+r
9kcCx06pmSbA5Hx3hfLUH6ri54LqO7HwVSnwFYJTv/xOLOWLqX3qgup7YnB7
xQsJXkLwZHnWt7xM7pv8JPbBeS76vfJ4+95nLpvnr+D3VPxMPUvFOj/18L21
U3f7/ZjDMYeuB75GxbfMs2lVPuim3ivBflcV97LPTv36nog2V13CWzTUzwVe
WOV31DNRnCehfK4U4kbWw+U6klwnp55qyq/6hvYq0r35U20nfjV6y+lirfNW
03HRApVv2i8J6DMrb2PN+f7A2EGXZrkOK6XHI/EkcSN2VlD5I+dC9flhtd4b
VHvG2wUV6mgeofLHUep8Kf2Q73TNnvb9e6H3dP3XVd6X9s9hrhtvmHFUrFoH
kPEheb2Mu8jrZdwFX6byAsrznoUsn9J7HAnqnLnsh2VUXPFqXtHZ4bUum/vR
4jwqvI4414r+b79++wux3d88rXRu+SJxf5ZxIdex6YdyfRj9eb7Sz5PvSy7f
d4P3FOc84a3FeU70yaHWf9quq97hVJUGuh/OUfuJe/J26JCpsJlfbFfnbdY1
fPh0Ydq8mhOHL7xSY6N3xcbazh/UexnS/irq/QvJ+T6hnNfGphCvWsKSrzPD
qUfuK01W56Dk73qr9yYk5/tF0p7jKcSZP37+7ziZeqQ9J1S/lb/rp96DkJzv
E0p7HqcQH+a98N/xLfVIe06p9S75u2HKX0nO95qkPU9TiN9mpBCXUo+057R6
f0H+7ib1HoTk+E9pz/MU4qJZKcSN1APHf7ZTfvJvdS5dr3eJ8+rw+2o9LUCd
39b5uODJ1lGr2e5rR4t9c/yJ9Ifw+uI8J/sCdXcm5qGNEmr9tM47Wu+feqvx
8vD1uBMJFU2uv99S7GWGTxeizPNFKi/rMKHdpYJrzHNHVVS+U2axx6Qjw814
L6/it11eNi/9eqbmrVUedM+rUKfuPdy1P5ml4rRu6VucefZnKc23qjhtzf6Y
ua3czfOfy1R8+Oj3xO/v6bhL8TWXEzl65k/h/GGxFLj8nh46y+/msW8SoOYd
yfeKeQou95uY70qI84f0T/cU4vZm4nvjelyrdaR16vtytEt+Z4l2ye8mwaep
eUGuixJ/wmmX3JdnP2iR2E+H307h+x7yu3D0t13KD0h+RPkNyeX34nTeJ94P
0u/RKP9AXkw/ZP9avq/RVa0bfHk62btfHvO9Mz+VH/EeE7qdVOs28rxTdjUf
ybid8xJyf2dejuTnNqnntBqnsv5can6R9fO8ZP1e4rwl9XRX41fWP03NF7J+
4mFZf1lxHpJ6eqp1A1n/DPXcZf08L1l/eXFekXoC1HOR9Z9U67qyfs5XyPp/
FucPqaeGiidl/R5qX0bWT9wu618ozhMyrneK9zjgclxTz3Vx3l4/d3HOP5nf
S+IHqF/u68ELi/c44BXE+yDJ4uQk+33w88JOvnPoq+LJjEPXnM83NFzf8wi/
Xax8yx9759T3JsCnn32y/tF5854ReL+84yJ8XkTpezfg3LvBd+TgfNeO7zfC
+X4j9wrBB95rtvvNi1gj9nTE+1yf/9Q8R4bv+4yxRuaJocdmDwjR3PihwgD7
gzHGvGJb3TIMDNV82LKJjZynRevvdsLf56uVfsjkZ/o7kMSZPePjRz7Pfkvr
A/9Sps2l1TOLaH3glwaufbnmkqkPXOoDRx90gEsd4FIHuNQBvmuapW2xqTG6
Xb8of7XufrnyfluO6XbBnZwWz5k0vLj+XjR898+775a5b7YLLtuly4t2wWW7
4LJd8C1B5YoHNI7VOuP3lo3YeWNunGkPXNoDxx5+F35haQW3shdjdT+R59Po
J5LzXU3J0bmV8rcnnlnsQ/3N72/DB9s3eL8sxrQfLu2Hy3EEl+MIjs7o2Uq8
V0I/kRwdJEcHydFBctrLuuWA4XYbWix5otsLl+2Fy/bCaS/PUd6rTnslp72S
017Jaa/ktFdynnt2tR4S2Ofq8X+GmPdMwYNz9ry5xem61gEudYBLHeDowHc+
4fK+RXilVdfWvMxv9pPsYt0GPSVHT8nRU3L0lBw9JUdPyfFL8eK9Y3SDZxxQ
1bj5wNQNLv2PrIf2Sk57Jae9ktNeGztVeyWnvZLTXvmdZNoL//Njtr2lj5r3
W8Fle2U9tFdy2is57ZWc9trYqdorOe1N6X7wK+K9YPqt5LRLctolOe2SnHZJ
Trskp1029qh2pWS/jBuxX3Lslxz7Jcd+ybFfcuy3sUfZLzl+5rZ43xY/Iznt
lZz2Sk57Jae9ktNeyWmv5LTXxh7VXslpr/yuL+2VnPZKTnslp72S017Jaa/k
tFdy2mtjj2qv5MxTp9V5nuyN095x7Fdbx1fwjX1Ceq0tZt5/B6/7+kuZ3A88
9D1fp8X7EegpOXpKjp6So6fk6Ck5ekqOnpKjp+ToaWOP0lPyFXuHRDb7ycyP
Rk/rFDJ4/lPDOrD2zsuzzfxo1ZusK3p1jTL47j18Zr73K2vejjHeq3sZ4J36
9Nm8LmucwT0vcId1M6JX9o0z+B4+fHKdaksbfpv3A28eG3j8VzNvymmXN1fp
N7HG1LkTLS7nzbypsHPTkPhxscZaL/fMhxuYedOF1nPP/HElxniYNl2vkLZm
3lQvU+8yozZEG/0edvWOyG/mTT/eXTc3Xd3nht2hE9ULXzX5umFntxYYfVLf
70Y+MuvwofsPHpr3wcG75QupX3eueZ8m3Ll8+TdFP5r3quh7jkZWGDU+ONbg
HgR4roX/nGy5J8bgnjj4uz4v1m7KctfIc6RR1q3r5+n8ol6+hreMxjFGlZFZ
b1YqNl/zuacXPHt3P9a4f2/BwuLPlml+vUrQ9nYdnxqjz4VtvVApVHP6Q7YN
WRdki7TlyyYHjWiyerkNb63ur5F5BPeDSP7XgJ136++zjc9r+eQ9OnKQbRw+
qXrA0zztbePVlarfEocML1miQc+OPlb6Lbx91/M7X1eN1P0WLvst/OWU/Xbu
eeKMfKrfwhNWNC3pVzlG91sZ/wSpfiv5NNVvJaffSk6/lZx+Kzn9VvLWqt8S
t0xfOaHng9a3db+Ffxl2aVSBOWa/hX/atPnJoddmv5XxD/1Wcvqt5FZ1b4jk
3OMgeV7Vz4lPVi3ZuilPvxij97+zA8tntY2v6OeS088lp59LTj+X/NzWVNe6
57ONT7i/SXL6v+Srx9//MHWzbRyyXo0LyRkXkjur7//L+ZHxIvlkxeU9LDEu
Yb85XJqlx51z/VkPtz2tbRycnX5jDVdzHSD0dv4VUVtzGJ92lmqd9kfbfPyY
WleX/KO6B4f86LcXsz/+POuZkftuvnR528/ROtfu4OFcblJTq8PCWxfmXgvW
/PqMvX6/Z/KxTv6niEPWWgtsnouX35LFORvP0/psDmw2/dOaO9ofSt3ad2s0
Kz7PLO3n00dZj1R27avvGdHzkfOxcem6/q3XVdDNe0mB7GvmhOv1N6knduIn
F3ff9em5b5yxSj13ePXgN78EfpvvjhgrjmcsvVhz9+j3Oet2jjPy93tWauwU
02839Kk9tVlsjF4fg8cdLFjA/vgjA78q/TM681wePNt67kW5PcadRqcG79xv
csemhaZUyn3NwH64d7uKVVd/s9+75oUVYfNNfuBewtalXcx2wWkX4xSeo8mw
iNR9zfbqdSF3L7fHbeKMqZt8a64bl4Sn2h+coUmcEfGh8+yJS811oXxDDvp0
zxFnrOmZO03pDyYf/lODzL8/itW6yX7I/VzMI33VdwO4l0rOL/mmby/8rL7t
OkMTdT8U/rZ7yKhaJ6u76ftt4axv0P+lfyaelH6vvbpPSvJoNU7p/86lxt0M
615dr4vCD6/L8Evx6IZ63QY+ZnoZI2/qzAbjBX5z9bwbpZ890fk4XK7bwGOW
+qf78VS0fu5yPOJPGHcVix4IDx/iYsWfwI85fBrjfLyClf4JLzTZq8SP57yt
9E94i76+y4rfLqT9AzzH9RbnGvzkY01Q+2vwW+q8EP1Z+gH6s+Tk9TJOJk6Q
nPk3pXyB8SjXteDcA4WfkeOX8rL/8FzoJ62CrqbKWc6sX/Yf7JHPC3+o46K9
4y69vmen77+G202etOaJ4WplvsPv/dBo62n/zJf1fcSMu0KZ5iy5Orms5owv
34MF8ixc4KHvgWV8OdROuDRiz5f63HcD51487rXBHu6/o7zUh/ppbybngNbv
hrrre6zgLQPbNr/RzFPf2w4v9sntVLWn+/R9VfBGofHWShW8rdx/BOf+I36X
fpUpt+untr389L1a8Crvl9lt3OZtpX4492ZSD/N4h6cjw1bta6ztgVOee+rh
8+1WhdT5zbxvi/45o6PdifpFzPKy3xK3yDyI+VHOd8RF8GGxu4a3bR5twGV/
5n43eOU83YPydInU+zj0n03Vg16mcnG0TlD77PBh6j1Q7n2Tfr6628DnXXYu
teHkj5Lzu/RPv1QLthZaWcXKPWtyXuA50j9jfgk6H9nCU98bCF9bsfDgXzf4
av8Gr55u8L9Ln3lZiQM1V/Mm+QU8V8GvDUJ7mvMpnPm09OAPo242W2wzT3E/
MuPiy456lq+14wzmL/ptrY+d46+4N9H9EL9x8dnxqGalva0B5cq1fT3YnEfK
Pa+y3HLE18q9yfCaRTJkc/KN1eOUeqatnROYzfeevi9M+lu4jFd5LpIzLui3
zQsPfzlyeCE9rilfZGi5uCqvvTWnfKuOZ7vUeVRLc55vj18P7+ru0MjK70o9
Oe8B76je32Reg7/18Li6yqWm1hP9+3/96l0s7LjRQflb6YepB/6yuVeA82hn
g/4P97+c+N4l8yPco6vl5sAq3lbiXvitFa1HLfsWF3FvJpx7M+kn0h50kM8L
e+CTvRPfZ6T/w+/3Cxn+uqDZf+BjinoU++L/tv4hlafDP4+f8nrU2kZW5iPp
l4gr4PFLTvq/ifp4EHvgjz0T3x9ET/iRgFpPndIb2k64VxG7+/GzS+hxCo9M
vaKck1dJrbNeV2zg+iF1I2eDdmk7O3zeNrFZyEHiE/i8tEszny3lY6W98MO/
L+wwIKSRdeLjyDL9Y03uGH91r/2LWlbiNKkD6xiSky9L3lPZST8M3nH0tV8R
X2tlZSe8UblN1Rbs6GA0VXERfL+K8/FXcp5lvDNfyHkZzjyOv4JzXyr1MI/I
euR94tQDl/Uwv8h64LIeuKyH+ULWA6ce1jnhrHMSd8GJA6sqPw/f6tw44VUf
0x74uM3fvz9m5hHwqZn+tnvcx4z34MSTrDPDn0+ZVa/omXDdLvyebBdc6gPH
HurB71EP62bwykoH+hWcfoUfpl91i/UNWXHZvIeUeWTy6hjvv3t46rgLTtxF
PIMfO5ajTvesVc1zI/iZExXKz9nZ3kvnR/B2o+/PGXDXV9cDD3iQs9cta7TB
ONV+b9c/8wr6uOm4Eb7p3a6Hdd57WBmn8PlFXzvuuxdjMG9qbg1NH144Wudf
8A4Dp5UomjtW31+MbsczfxrxtouLvo8Yzn3E9Df0XLfOwShTOUbfEw3nHm3i
CjmuWUfV+eObr3eujd+m18PxM41ztUl/xL+JlXVF6X+CDiSM7LDCXK+I9vv+
vcTbBv4cPvtOtOe7zPV1/AxvXjLyzZQFVQ3mBfpzQttyg2eW+dHqo85nyvl6
ilpPkJx7MOV8x/wo5zvuU4aXDEt8/4g4VsaTxKUybiSelPbQLni6/u69l4c4
WdFH50ERl0s/7ORiLX3tY+o5A2bp/r95dbRfrSsVdb4A33Pph0mFN5S0yvn9
XncXr/Sp7erxuynlxfjn/WKdB068Sn+D49/oV9L/cy82HD/GuhCcdTD8Gxz/
hp30E+zED8Pxw9gj/T/xNpx9KPwtHDvDVTzAeAka6ebTelwT7U/g7Rxj++9e
4GvFT6YU98rxQn5Ne0tknZPQvnGUHr/Yw/hlPRY+4mPeWU5HYw36Ibzdy40n
C2+P1f5Wr+P5rBp//P5lnRfo/ry/8crVY5vq+2r1OqH6Xe7Xhl93b9vnXDNz
H4H+du721hKBqUzd6M8WB5ffX9ZrYuU5yvHIc5QcPSWvrdbJZb5JPivzVtb9
5PiVcbK/uF+e51jbo9mlJtvN++Wpp8Vwx1OujnX1/b/wTBaffeuyuFtZN5Z2
5lfrjZTvqd6rxW/AZ3QN6hOaxrzvm/HOfd/EsdRff+Hq4BFp7unnDm87NWOB
aT0e63u38Vd2C65/apPmhV434HmdXxw+La5gpEE8CZ+cqVWbulseGcST8NjW
a6wXfn2h1w1ke1m/4rmwXgqnPJy8Bh3Y3zys/Bv8q8pz6Ye0i31Y1vGwk/0+
/CScfJn+L/NQ7oPmd7kPmjgqpX4r6yF/0fvs6r4kbzWvwZ+r7xXT39AtX70C
HeMcLxusb8Mt6r6hmCd/xQ/eZsbJI9682vKLtzl+4WHq/h3yJvTvvejLQJfY
MXq/AP5D1VdHxtV9YrDuqved1X1ArOfDcw464Dytublur/c73BaenPhtfLF/
BM+o7v2hH7KPPNO1cL8Hz1/oOA2eW933QT/kuaRtdThiS78Xet0bHpV3Tja3
g9GGo3pvVPqByIIuD5wKz9P950jeGus9B0cbO2vN6r2t1TKb+f3ya+8aDpds
z2cm8L6V4JNUPEl/W5z3rouXQ7TB+pWME3ztamx/WGGZDe+j4ivJXeu2te8z
3fYc4zX1Pk5K6xvMX97qHhbiKxkfFlf9EP/jciRjvhKOzlb6m1x/pr9JTpwm
xwv9RHL6ieTkKXK/1UX5T8mZHyUfqeI6yYlP5Dx+T+1PSc68LHkBtT8lOf1Q
8nZqPygl/2OzbqbmNcnpt5LTbyWn30qOv5Vxy13e0xScOEpy5jvJq6n+Lzn9
P6X8QnL6v+ToLOejAO6RJ25R76+xrsJzGeK++otHlRiD8vDuKi9AHx3HHjyR
yaVOnMG4g29R39svpfIR/HC8et+H5wK/7XqgcxqXGH2eR/orzmlIP8N5Kjne
V6o8lHE9Nmz0gSWesQb5DuPUyymsn91vsQblpZ60K6X+wO/yHi77cfyuj9pf
5hwa+m/pPvJ4kwF+VrjOl2uX3Bbxi7fB+R9+t8WEZd692zXR8xGcfUDs4XfT
HU38vlaE4uiJnegGb/n/771E6HNxtCt60/AtufpHGe+5p0zZn0N9J4H6ee7U
D6cfwum3lG8wZeYytxbRur387k+dhua9N/eczsd57gERlyudzhilnyP9h+dI
v+V3C6j3zuC0F0491C/7A/bQf3i+cJ4v70Xq95vGrF9/1Ne8DxF+MrTRqo/t
zHvN4PL+Rzj3P/K+GJz35vR7nYrLewbh8p5EuLz/EV7jievgPu7mvRXwUT/U
7v7hS5R+7xV+zC1xvOvv9ann4jl1/x67JPcnwmV74TP2Tbv8zx9me+G0l3bB
Zbvg3P9Iu+Dzf9rbZ8tZ871veJsrid+PxU76j7QTXlD1n/op+Fvql+cD0U1y
yku/R/mUuM37L8p+/MDIMMdm2e1M+/V+WWj90eVnmt99kvEPOkuOzpKjg+S0
S3Lst3n/Qtmv1z9Xzw4+tdz8Tg5cvk8K366+54n9Mh7Dfsn1PVaCY7/k2C95
kJhneU9cf48uhXvWJMceyfX3CgTX3z0WnN+V8R71S079kuvvJwvOe68yruN3
beJGVb/k1C859cs4jfol1/cCpFBezuPkBfiBxgsmxPVaad5vC+d+2xwir8Tf
fhB5IvfGUh4uy+MH5D2tQ8U9rZTHD8h7UeHSX8HxV+NTWNetn0KeyO/iZ+af
9XsYNMn8Xbj8XTj+nPEo/RX2SI49kn9KId/ETr1us3yf88cZpp1waadeDxH+
UMaT2C859kuO/ZJjv+S3Ushbc6SQV/LdBjneKS/56RTySuqR45p6JKceycen
kFfuEPtNfdV+E78rxzu/Kzm/K7n+nobg9VPIN+kn+Af53S34UHW+CDulP8FO
ybFTcuyUHDsl/5RCfrojhXNNzIOSP0whb6VdktMuyWmX5LRLctolOe2S/FYK
eRZ+m3HRfmXie7LJvnP+rT9PeBpx/sFl895Y+KFBiXnKRLEOyb3tzcU6pLxv
Tu/Li/vm5Ho75fX+iyqPnfhVzyaWsKqpzfvF4Oum7Kx1Ocn3LmS+ZhHne1er
873NU1i/op6U/Ibk+j6pFOZx2iXvo5Fx70Rxnm2pOs9Gv5J+u3kK+5v8rmwX
XNqvvycs/NtEcZ6nuPo+OfYwzwYv2Hl261vzO078bhu1TvgwhXx/ojifY6++
7z1enAP8PXfiOcDTKbxHgP56X1v1B/oz7X0TsSj3vkanNad8tgbV5rXYelPb
gw6T1Xfsy6awL0y/Qp8nZUY4DD1WV9cPP6X8JOVpb/Gu/Uvtvuqm+y32LDic
uP7A86K99B953uw3dd4MO+HooL+PreovFt9p0LSc5v1itOuUOhcRJNav5P2V
0q9SP/2h0cqAyQktze8a0V75PXCer33/Em3beO7X7eJ58d2khymsk6APXH4X
Tq6f6O8dpeCfKZ9O7S/kEPuYWd0S9zFpLzrPKJpQavmgA9q/yXHNOKUevhNF
PZT/12HKoL2Fn2r/Bid/x350lnkc/kF+l0w+r/8BLlSm+g==
   "], {{
     {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFnHn8V8P3x+/77jcpIhGlZCmhbIWIIn2zS0iWSNZkK5SIUklZK0ta7JFk
SymErNn3fUmJsq/Zl9/r+XmNx++Pec95nzt37jJzz5zzOudMy36n9Tw1jqLo
niKKEtUL9NNedac8irYuo6inDp6merH+X6Njz6leL4ui79Tm4zSKHtF5G+j/
1VUUbad2h6t9qnZnqV3/WhQdqGPXhvMeV5vt1eZotSnEe0jnnqt+3lO9jfiH
ij9I9aNq20rnNtK53+j/+Wqzltp01PEB4rdWOVllU5UzdWymjq0m+kfVuUpf
8TJd66zU9Me61vE63lTlEP2/UPxTVX8p/pHq/031e5TqP3XdA8RPde6F+r+F
jo9Q3V31SrVZT+efpnN7q8274j0m3qMqp+j/Ffp/ucqJKo+r3aMqX4j/u/rc
T/V16ucL8U5QWV/lGv0/VW2vVX2A2mwi3tp63ovU/2C1/1bH+ojeWvRDomfo
uX7R/4W6t8tVrhX9TOn730ptPsndZzvRS0R/IXpznl30pWp/qdo/Jd7BqluL
P1d9rtD/ZqLfUptYbbYR/SnvQG1aMCfU5hT9P0r3tpfu7XjRR4j+n+i7VDYW
vZbqi3XuETrnPvX3k+plOvdt1RerDBH9o/oZI/oc0T+IflfPMlT0mqpHiX+W
6O/EHy36bNHfi56ovk5SfZvqIbrucbpWT11rnujGonPRd+r8+qKPUJuLVNqr
/VWqrxX/HfU1Rvf1ldr3YP6o3ZeiO3Jd0Zfr/GaqV2eOqf5KpaXKM2pztfp5
VnUj/f9c49s98jgxXveovkPHzhY9U/VgXecM0bfznhK3/1ztV6rdxqqnqf5b
bYbr2By1WZP3xdwR/YjKaNELVX+pdpWO7ad7vk3XXap+5ur8RTp2SbifDwL/
V/FHifeweI+p/be8Z/2fpf/nqb5P9aOV5yvz9mC1/0r9N1T/B4nfU8d/Ee9z
nXe12ryjNrvo/02F+YXa3qU2Q9XX7Nx9rAj9bCveF6I30HmrdP4w3onaHB2+
kZWRj3+pcozoMbH/Q3+t+iuVY/k+dS8jdM6DOne+ykjRC1R/pH6XhWf8X+Jz
NhTvRh3rq/83Mz917rHiHa//5+gejlF9i/idkVmx+SfpeAuV/urnQP0/QKWD
jp2r9ieIt5x3quMbqXyt/0PFP575L/4w0SeK/kz0NPV5pOobVH8i/iGip4h+
KPc7qJ+5j2dCP9/V3O+AyHPhszB/rs59H9eobirepyq/if+A/l8g/twwvjz7
U+Ifpn57Ih/Ef5NxCzTnLldZqrbXh2tx3SU197mn6qvUbg+1n0od2nOtKzWu
C3T8Z43zP6I3EO9N5oL+PyL+ZeJdqPnxoZ5zqngHqm6pNveqr/mx58pn+v+6
+B+r3j31e+H9TFe9vdpcx3emY+eJHqayu/p8UrwnVH5Xn2+L91bsft7U+Z+o
7qb6bh2fzTPo/yFq9xpyQOcuF2+SyvvivaF2S8TfQ/Vbqe9/lK77g44tFz1Q
9bbq+9oge28Oc+Ym1d1Kz8Xuqp/S//HiP6n648L3/K/qg8XbROU8/Y/U7gXV
x6h+V+ddI/pDtflD5WnRF4v/UeFrrSH6A9ErkPPcu+7tI9FdU89HzuXYPNVz
a5YPqwp/K9erfje1rB6tcT5C1++mcqn6fET8ReJvofp0jcuTqt9kfdQ5m6jt
NXz7+n+p2jQT71DmP3OaflTaI9NUP6TzHlObzVVfp3KV6Fx1/dLzaGNkrfqa
L94rol9h7MU/X3Su+z9TdCeVeqW/z5aqE/FrKjvxrgvLrA9VVtOxj1V/onJr
6fd8O2uR7uMnXXeprvGE2l/Pt1Z4TjA3nlJ5WMceF7+t6n46J1L/66reg3kp
+qIwn5hXF6h0FX2u6vNVStHvq4+Jut6tOv8mZH7qMeP9P6Zyi/7fKH4j1U+L
vwW6iZ57qMortFUffUvLQ8bxNPV1euI1tRmyQ310V9lPvH1VtmHtV7lUvG5q
c7L62F/1a+g24s0P4z4gtV7xOnMOPUb8jHVbZQedf2hpfYO16TON4fW6n7E6
50nxTkO2qv0+utc/Us/z91TfL34D8f8RPUt9/sW4VtaFdkD26PhF+r+n+HeU
XvP2jLwGns1ao3u5AP0h9XUf1f+a2rcS/b7aHKtyOM/LOot+IPo7te3J+qd7
7q/6B/G7qH2i884UfYza7Kv2e4Z1kPVztI710nl3qf0o0XuLnin6VnQ1Hb9L
Zf/M63OieryOTUC+qu0D4s0JMudB9TdPpbPop9XHy6o7qH6VcRPdRfWz/Be9
g+oXVd4TvYvqgZnn866qX9L/98XvjD6k8pLo7VV3QCdRm2N1/Z9z64u/Iht0
H4/ovKalZTMymrUJWds0yNu3mCvwVbZkbvJMKm1FD+edqGwm+k7GEd1VfY1V
H+vrvMmFZTKyuZ/uYzeeT+/v2NTv9pnE38hXkeXoVfp/pcoAlVX6f6rKVqw/
fLtq01H14tTyc0fVV1bW4Yaq/yvQv/UsL6q/kTpnb/Q6lcniH5d6HrdAbqPj
oY+KHqK6a83fEHJwn8jyGzmO3jmk8jv9QP1vh+4ierz6L3V8uspgnTct0Hzz
51Yes4/U/iC+bR0/UPX24s/gHor/P2cX1e3En4IuJ34H0beLvkz0VqKvFz1a
9E1qe4PKVPW/tfjTxB8rfnvRU9FDRTfU8ZtVblebu8S/UfxLxJ8muq/oU0Tv
r/u4TW1uFN0COSJ6ptrfgL6t9/ajjm+bm9+U7078S9Bf1f5W0Y+qzc/o8yq7
696bqW6ktreo3ME6qjYvqs0v4s/kXpgTka85I1xrOWse+gf3qHK16BHIDNF3
iL6c5635eTurXk/8EZm/o6aiD1ebk9VmH5Vn1V9r9be36GdEbyJ6R/QntT1b
5zRX+xPQX3V8Q9Gniz6TZxd9huhBojcXfY3okchL0XdnnudtRE8Q/0LxNxI9
Hv1edGvRV4m+QPSWoieLHiW6mejjWcdEf5Zaz0QP3U38Reih4u/KOxQ9SfSN
sceVMd1J/PuZy+J3Ff2c6GsKy6GZ4R12Fn+h+BPF31n0PNETRG+t+91V93ud
rtVJ/DnISfH3qGzn3Fn6XXKts9VuR/HvE/+KwuN8WxiXfUt/C4zvTWozDltF
bS5AvqDzJtY9Hg76x+riT2bN1/V7owOxfvDd6dw9dC9/Ym+y7ok/TfUF4nfJ
rPOcX1nX+QS9Qv0eoX5u17HzKuteS0rrFQ8F3WJ4ZV1qKWs3a5Paj8+sjz2i
0k//67P2o2+KP7Dm+2kbdOh9EuvU2ORpzTY6axtr3NrohZV1i+8Dj/UP/XsC
8z+zPjk19jfLN46uuoi1Ebmm+glkovip2h2JzqP+J+rcKzOv+4eUPj5Ux4en
tqdXomeLf6bqyaWfZWHQLy+pbD/crfY7ifcc37b466b+vh/OPKaLw/w5Rec/
i16t9v/WTMOHpg3f05581+iZOndn8Z7nu9X/E3K/l+PAPVJ/xwvV5ujUa9GT
4X0siP1OhlXW/z7WNdcS74Uwf3ZT/WJsPam7+pqhepH6aSLeyyoL1GYD1S+p
zBf9W+AjH/9WeRoZiq6mvuchk3TuFL411T/oWv9Tn7czrvo/X/wG+v+7+HNF
nyT6b+ZVYvtwW+al+J3BccTvoeN36Nxl+r+hrvNKuJ/NGCNsV723TUVfIfp8
dE8wCNHnwVfb+8Oax/1y3+uqrAkWwHqoun/iufN95PqQ3HNqIjI4YmLou0O/
0LErIq+rv4e1tY/qBL08Mq6U1IwzLSutB22gfvrnPtZP9aaJ26OvfMK8ZA0p
jTVtxroGBqJ2l0e+j+/F+1bXOF3/Pwn3zzsfqHa/in6msJ77S9B1mUurgl7K
dwv/2sj4wTexMQT02w6sr2rzu+qfxN+25ufkeQ/LPV/pf0ZkfeAH0QPQq1Ve
r3lt74EuFHu955my8B7A2HLRm0bGY/LwXq4V/2OVHVgfdA+f6nq3IMv1/6PY
zzxe9Yex8btmiWm+UzCoD0Tvr/rt0P5ntflB9HuivxE9P+jCF6OT6t72VT1J
/fdOzef41+I31jzqUxkDQ2fAFnux5v6/jYwZgR1NyGzbY+ODCZyBzg8mp3vv
zbwX/8/IutMfKm+KHqw2TSK3ORN9XffwQGW96y/0ksh6158qb4k+tXQ/R6h9
v4AnoEudVHq8TlR9uso6kdscVvM9/KXqKPX9D+eq7qPyc+yxQydF/0Ev/TE2
n/GFZqzR7c5GL9LztVXf51TWR98XfVZl/ew90adUtnleB1sS/UxmGTCgss32
mviDK+u17yILK+u+b4seWNk+fEP0oMr63zuiz6is176F7cC54Zs+RrxddV9P
6dn2rIwDzi5t36BbM379KttIz/E+RB8i+gS9k26VsYBZ4rcUfZ7owchevYue
eu4hjKf4l4k/TPxjK9tgz6t998o45r3hWthU6PHHoUugp7MWqI+54h3MeiT+
Pejl4p8segE6vegTRN+L3i/66Mp27LOij6qMLS4SfaXOv0/97FczHnJnbFn5
j+7pOf0/WG3WF2+WyoN8/5WxnkfEn6Xj94h/Pu0q40QPlx6Pu2LrxLNV3x1k
4336/3pse6x5aIPc7hv4bSO/d9qDJ+ykd9QDXVvvrHdlDHqh+j+sMg4IXn1k
ZQz0cXS2yvbkPGR7ZTvtftH7VLYnHxS9f2U8ej7fYmUsCVusR2Vb4gHx96ps
S8wVfWBlTHyB6CMqY6+PiT68Mu78qOhelbGwh0T3rIzNgYf3rYznPlFaxqwK
cmZN1eeo7qLSX21mq80LatNA/Poqu4n/Wmbd6FXV/6gcJ/pv1WtqLjRMbN+W
ieUY8ux7dCZklOqvwb74ZlXHupeTRddU76prrMa6VRn7Ze39FnxMfaybGC9u
orpxYj8EOBA2Hfh/qXanqZ8iYFf9WBci28VHcr+aL0NK496vF7bvLtPxi8BH
a7b1hkfGVOnvH/XzbtAb3lF9SWmZ+47arwKLQUaAWYInIDvEn8L1VQbp/xt8
S5Hxq/PVV3PWadZvnXMMa5LqoapX1uw/wD4FU5wHjiJ+Ghuj4bs8DPsdvU2l
UWKbHCwBP8tP6FLoc9ig+r9fZizq/dT24BXBJrw0t2+jS+418/Ka8cw+qscj
H9HBVMap/IveEnRjdGTsSHCG59ArY3/bI2q2/9APse16xL7eXkH/RHcCuz0g
dv8NIx+/iHcjeozqi1kPRO+PfK3VwXPRHQF7XQOsK5zLPbZUn53Dtf5gHNU2
K3w+5yLbD1U9uub15fTM/d2i805FDxZ9M3pd7Db831f0qFrdo0d/RKZ/V/12
Zh30LdVXMM412+QnJNa90VvxC4Fx9cJ2ToyjX5FZl11UM14K1o19z9pE2ydD
e/Rj2qIvY1fgW2I9nRzwRnBHcNN7a8ZOz8mMPZyi+p7Abx4Z1wKP+qkwxsix
70SPyz2+g9T+X7UZr/8LKl+XewF7ABcGHwarfLhmmjFumdsf1zvzOs96/5va
rJEbb8MGwecFXooNg60CLsZ9j8vc1/O6l4Nyv4fLMuNUD4f+Hw3Pe3jk/nhu
8Lz5oR+wiIsy+7BGZn7W2eF5sYeRweBMzYI9Ata2sa41TnUr1R0S3z/2xlmZ
cZoBql9IrTvsrHqO2l5Vs14xTOesr3POzW274GM4RPWbusaFke27eoV1mQXM
t9xjPV/0eqJHoDei+7GGiV+Iv7f+369+xmTG18G80CvmBBq/zH65/Z2HZl5b
7gvPho/vR93jupWfF58beAB+vW9Er1kZV6N/5Au4HBg03zwy70GVHSPrMlwP
PGc7tbk4tn52cWa8+vHENeeCLcLnXORG18S42UPifyx+V537ker1S68L+6j+
MLP984Hq7mkdrBtN1nl7ic6wZUT/L7X/eQr6X279rxt2Vm6dbE9kFbql2rwi
3qt6d6/zHRf+RnuHb3kf9aPHjm7DV8RcFP2C2u8rfj3RtyeWAYcFOfBjzfYw
tjD6znrIFbXpkdap69G0xHjDE6K3Qv9gfRO9bWp5Uwvy8JDYaxd6OBjDrWI3
SY0d8h7649vT/9XEn6k+9xddX/SsxN8q3+wuqg8Vv6n4dybG4Z9j/AvPS+bn
zqqfy4wlXsBczYwxnpwZT81q9os8iH6HbE6Nhdwlev3UOA14Bb7vzXnXsde8
zVXaqJwWGYOZo7pVavtgfLARTsqMC+6oum/s9bGqGXPaSO3vV39tVIqafcDn
JvYhboxOzvobe63nO70nyKsTY69RDVVOzIyv76D65sx4+wmZMf1LE+tPicZy
DdYdXfP31H7/38BrSuNpYIkvFX7ejqpfUNlWfdymSTE2t667c26s6H612Uj1
jZltzY6ZfRYPi9+lMC4FvSnrqq7fW2V1tTtL9eDEPrYnGGNslNR6QbuadQPk
20LRH6S2SXvFxtPBw0bq+J+J7RF8l/hEwU0noJug/8X27eHX644dHPTPvwr7
Gf8svDayRqKvgptOVNsqNUZ4tejVUttw6CHYceCmk1TXU91TpZHoqYl9/8jP
fuCKqe3vlHvW/+k8R2EddnbQYz/LrGcPVv1JZv/iksy6A/fDeg2WBn4HnlZP
9Vmqp4i/a+DNYr0L/S2OrI+jlzPeYAltYuMJ96reJPb8Rr9uHt7D3kEm02aC
yoUq77BGF+4PTGNuZp2oL7Iqs551NPoUeproLbG11H58ZHwVfPEW0eukxjYG
RY7BOCexrx+5g31DvMk3ibEQ4jSIWwAfPU/0L4nx5tHohInx6YtE/5UYB8M3
h08OPHuU+H8nxqrHiP43sY25nY5vmhl3IS6CWAjwVOIiiJ3YNLd+cbjajE08
Rlth22bGy7cCC07NXyM1lnmz6MaqD1JZS/T0xPgYYwGGPCFxjAE46Q6qrwu6
/W25cYneubFe4jeI5dgcX6+Ob6ZrnQ8uLv4SHW+TGfdorfrVmnVdMJ/nU9vu
nZh3hd8V2OleKk/zDYKpYp/wrtR3XtlXi892t8xji+8GXRIbsVfNtj42P/bn
7pn9yF0zzxFwsK8KrzngbdggzL33wvN+XpgHtsNigc/uD113RWE7ZjF6kZ5z
o/BO0FvBN3m/e2Rev1boWf6NjS2w9rQq7UvFp7phaT8p/tLWsb8XbNI24P6q
vwE3K425fS3688w67mmZdeNZ4bt+JfP8xr5uF3RR9NaXC8cINFcfB9Xs23qX
+YmsDXIS/AMcBKx/VmqMHJ/FlMIyaXrltRpfLc8M9kKsFzFfK3U85ztWX5/W
vF6iO38tfgPVdyfW/9H9/1H5Kqy5X6bGWw5UP+1Vf1t4bTy2sB6GznJS4Wel
P9ZfcC0wvm3B9GrWq9Gvbymsx3EuPsN10eXU9tuabRhwtjsz/5+Z2dbH5keO
I0vAV7/UueuIbhzbHzNH/wv0Tt3sysJ+refx+yT2J5/IdwXOK/rpzPFu3Wpe
A0bHlr3YG/hAwQjxXx2XGPcEx8V/xHXw/+BnQ84Nz41dgWExB/C3dBL/Cc7L
LMfwxWAL3lizbJoYWw6AFRLndaXqTPXa6vce1sbKOBN4E7jT0sL1WuAJqeP3
iONrrWu/wvvSOb/VjOvlajOjNN6KbG+VWXf9Te2vVn9v1Pxt0x55tRDZmBmD
vi8z3gnuCRbKmnZwWNfAbO5VPxuqPkb3d7PqxaXxm0fFb6P6+MzvswP2Qs3v
alVkzBXsFdwYTOge5nbqdZz256mfKtjKvB9woPvUpkVqPx12Ht8msVLIxMdV
91LdKrGMOzbzd98+2Go3h/tvmxkTBQ+eHBs/Re5hw4Fd41clbm6E2vye2C4H
jwWXxT+2l/gvizcQHU7lsthxXGAJq8Ai1P8Zoq9mzhXWC4YUxgnwLRBTgW8I
jBqsuknmuMSvsF8T62ToY9grz9eso2LrTw/nYr9snzgeckNdb3HNmOpepfUQ
8IrmmeMnf00cu0TsAfEi6BLYZcSzEJPA+ow/FB9gD9Evqe3IsA6y3qGPgAWA
A4CXg5tjI1C/VHO85s6J4xh55hNKx2diB51b+t2AvV+aGcPopXpS7vHH30mc
D3rjbWr/g/6vL/5dif0wa4T3ha+mzldXc1wKPPw9SRhTsHR8QauH/+DlyBfm
5/zM31eD1GvUDTWv/Q3CGkGs3fWZ+x6u+rHM/iD8Qm/WfC7+POYhfPxA+MqR
58+yHmSWiWcEfKt/bJ0WDObUQMeZ7S1sPXCvgbFjOIid7CD+QvF2LB3fiG/r
78IYATFKI0v74u7Cf1pzbAUY0JaJbWZiOOYFPjZa/9QxKYsTY/L90QkL42cn
xdahwae5/71yx7ewHuEnBjNmDcWn9KvOfYP/ldd05iryAiwVTJW4KWx0sAns
9F7if11zTBSYLmv2UtbXmuUGvhJ8e9jcLdT/uZljA7H98ROiJ02pOa7t+jDf
vgkyH8zqcJ27U8CxwJXoH33ggdhrJboC/nBixoZmxtRZC/C5HVZ63Ik7Wjus
EeDAyCKeF/wWHx1xTMwJfG5Z+N5eq7nGh4rPNg5ysE9i24DrYa9jw2Oz45sF
s/gP86AGr8BfiN9wbMD2iIWux3dU2HZjfexY2q46R3UtYCIYyssL61r4jj8r
HE+1Tuk185Ca8agRQUf9OrEsx5fEOcT09VM9KXMMKc9H3BZrJjoAcVv7lf4e
iX9gDUSHIdali/raTeUdZHZim59YK3y/4K74jomJRL5cr3qXxLIAmUWME+O5
pDCmS4w3PmZiAcAkFiXGffFp4dcjVmgz8R9IjPuik2BTX55bJl6WG9PgXGJ7
iW3EBkH3eiXMT3RO4p7WVH2dzlmGTEEHLu2LBIfF18g6izznWAz4kBgXGIWv
QvxOpbFb7o3xAL8hDo14NOJgiTsjhrhx7njHtVV/WXPcYPOaY2C/CG1Gxcb0
8Hd10Pml6rNUn5Q6PvzVxPHMyAdiUcCtiW1DFhDfhd15qur1c/fRQO/8z9Q6
FfMcfxbfIDGJQ8Q/Tvxl2Nyl42DBoG4Q3RUdXn18XjPOuC79qv2h4r+TOBaU
uOEu6DalY+bBmU9OHI99dmx8nRi8dXSss9o0UX1/4WdFbycudlBqX/+HfK+l
295bGMNeobI6/q/UGOebiWUJawd+RnSqvRPrWMgmZNRyPWOTyvjIiYXnPPoi
nwb2AvHUd1Zet1m/h4m/VhgXxmejgPttHOwn2rC+Nw1zBzsEnIO1DF8w8T4v
15zjAD5dFw8hfpOA44Hn9Ug855hv12WOYTgvs93zapCT9dRusNrXZ61LbPs0
yxxDg08B3wLX/D5cFx2PuBB0uemp5Q2xG8sDvgHOsWFi//A4dKfS/o2dS+NY
4Fmsv88HGp1hVXhWfMu9cvt0Z2X+Tn8I73zN3PONmHJs/Y6q7678Pb0anpHx
YqxvzR3Djx+BGEVkDTJn/czfOd87sVLkhmxRc94B+iXvg1wR9Ms3glwiv2Nd
8VpV9tMhoyrmSe7cB/xW+Ffws+CTWpFbv8W3hV96cbj/JYlzPepiyFPLCmTG
NZl1KHJJGhaO68aHxVrImojPq37h7wVf2KogM3m3fwW5zxjEqfUF7NxaaV0O
nQ5dDZ2NGH58DPga8Os1KBxnjl9yWpA/yKHVC8eZ4+P7N/d3h58RJwN5Jfgi
n00c+0cc/2PF/+v46PzEE4xFbym93uK/3qH0GkL+RRR8ZPjKtouNv4O9p7n1
DeLt+f6Yz+gTZ6fGqz/RNRuWjjOaWYV4hrDm/hV0Gnx3M1Pr0Pg9vswso/HR
rcxs95GDcGdqHRef2B+sEbFzH85MfS/ENOFDGBIb5/8ps5zFV7aqtA5CzBo+
JI6vnlseIZeIafk1rJ34x4hVYj0hvvSHzLYk+QjfZl5v8CUip5nbPSPLn6Hh
W2bOgzmQS0L+EbYssanEjIFftdfx81PrICsS68u8T/J3tmBuxV7vlqW2HbbM
/V55v/SfBz8j/kbkO3K+HtdKLH+RvQNT+wjwC/Hsz6OvVJYPxG4Tcwcmj3xA
x8YmwzYDR2qRuSbW++3Ax56ZHMYOG/mB1DgIGPzcNNj8mfUrchWwZ9/L7C97
P+jmK8Mznpg6zqxzGDt8uPhyH0+95oL/rQjteV70d/T4ZaJvCXoL+gs6Evwt
xF+aGc8k1ghcAXyBaftpZkwQOY9tjI1MHDD6AWs98c3kKJGPsn7lvJkxib/t
1TKvOeRk4FM5muuXzrXhnZFPBoaJPx7fPVhNq9i4E3ofmBG637iAg4EdT9Wx
nVWfVjjX5qLE2BR+0UGJ876IpSKmijX13tz5U48kxobBiLeMnNfCudwTmD3X
JQaYNQ37ATwdjBcaO2JYuB/4S/OQf1E6p+nTyHkBw8N1iePimcDjifUgj+TC
xHO6hdotFn+q+DeW5rPuk4uEzUH8ODhVy9g4En5faHyyc7KoDuS6IncMHs9L
zB55TsTjsa53i20z8K0SIwFmTwwLmNm48A531z0vjByLArYLLgO+PyPQ6N7g
uhuE9w8mBt5LnCoYL/gefrcddB8bx/42tgp8/CX4d9B5iW/fIjbehY8En+9u
yNbKuVHEghHDTo4UeC5YbrcwRmD4xJqhB6ADkM+FDP8osa+AmJV5wTZqFu5/
eWhPTg25YGujMyfOhcLngb+D/KlWquckzgGDdzyYeulxGyD6sdTXbJc6lwqd
8G587oUxH+Jwtq2My4OlgKncgNxKbaOgm6PDb5/7PzGBT2XGUa7M7TdBT8c3
tyzo8+CG5GZw7+j87cI9MFc2ST0mN2XOBWHsWqeO8cBGIJZm68K5FcThtCt8
P8TwtC+cW0Hczg6VMWjiQP6p2X7Gdv4+d3w7sSsvJsZJiPlHT3k+6C0TM+tB
6CfkPPJO0JeX57YLiIF5I3E+BTlTVweMhbg1MFywXOJbvssd70T8DGsbaxzx
aq8H3YP1HYyGeyB+BrsI3eN19KLK/jNyYXYqjEcRi9Uh97vj/UwI9tC0yH41
5ju4Uxp8KOTn4H95O8hkvinaT82cv7NNzfmbD2XGpacFmxtbFBusdeE8HWKo
yFUBrwO3uyH1uyS+GGyT9nw7jxfGDGO1aV4YsyI+6tPSOTfbVI7d5n6mZM5f
WBLmAWO75L/xTe1zJDeKfKMXRW+nuktlXxf5R50KY33Ere1cGIsjDg27kvyI
SvSS2M8FBjo92K3Yr8QH3S26Weq5yvycDi5SmE+sV0Nd+5zY6/7cwuvkJPEb
5V7DB+fOVcAWAePAR4lvn5jGGwO+gy8CO4ycv+ZhrSR2Z3bmNR3cGPx419xt
GPctStsNw0r7OCYhU3JjpIzXkZkxQ8biqMzYAzEuSyPjjPgYwBnx3zAWYLX4
n/BDER9C/DLxIMwzdHv0/Hszr7/gmvimwJd2iY11EjvMukz8MHoatuWMzGsr
GNCtmfUR9DzW7d11rzvGxmsaBhwGPOan0jr3osJjwn0yLswlcF3wXXKQeIdD
Ax7OfRKXgi4H1kXs86ux127WKXwKYK74nRqE8WLcsCWxGauwzncP7ZHNe8X2
5T1YWA8aXzkPl9gPYkCwW7FVyVMlpgfdBGwfHBU7ok/mfAhsGWwo5DHrEGsL
egWyGR8yOg9zmVhpfH68S+KysJ3JIdsgt/28YXif+H+Rn8jRFuGeWYfxr7Nm
X6j6tdj6yeL/dJWa/eHg93uHdQq/TY+whuLvx+9PzAPrFW3wV44MbfDvgM2C
026Ifp05horYCXz5vCd8rOiH6Iq3Bd0bvJM492GZ7SzmM3ERX4i3WmVMHj2c
eFb0K+KlwDTA6XsFPnELxFoRu4B9hP0JrvJX6VjXOZXjGcBeiLXF70QsFH4u
dH76+CJzDADYyKaR4wjQvTeJjJ+Coy7IjLeCnXbLbSNjL+OXQC69VXMe3GGx
r8e18PHg6/k+9fXhg/98k/k48b7EvGP3gXn/mPma/YLOTxvaolQSa0we69Qg
e9Hnycsmj61xZTmIPERv5zrcBzEcB4Z3hd7AM/aLHeswLcjq7XL7NGeFufFL
5ndAjsDjmf1NxPaDYbFm/Zr6/RwVO9aC/vqG91bHi/8/rhs+WBP4BjFn4Hpg
3Z1iyxH0uo1i52A+kdnvRMz/gNixFNtH1ivA7/Bltcvsg2cs+oRrsab+Gu6Z
eycG6+EgT+ijf+gH2w1dhX0H/kSmiT4xdxwHNh3//wp8jsM/IXaMB3FZ5PSO
Uv1sYUyeHLqfwngxbtOD/Adr4LzjQ5/HBho9FZ8IcSlgBE/kziclf5f8G/we
62TeiwAcA2xjg/CNN82dZ/NM7LmHPAbvww4H85sU6LZBzrfJzacNfjf8gSNj
+wSx43YXL1N9RmxskP//Zn5PA3LvnwFWB34/El0FvT83LgM+A5Z4FmOosofO
qaXWQbguuQxvxN7HgHwibAv0V/zw2JjgRODw4EvkyhCnhw5OPg35MsSLdM2d
JzAh3D86Dv48rkGuCvnbu6jN4axtsePSr4qNt9MvsgQae5K4+lrivTjg0Q67
kz0y2Cvj7tI+OXxz5BKCcfFMVW5be3hszBMau4w83bXC2s0aTuwumBiYIXn5
I8IazZpOPi2+EPrg/J5hLFiLyP2FBns8KPL4XBDodXLX5+TG6P7jgS2CMTIf
7iuMQ4JH3sGcTJwXSQ4fcX3E9zE+p4Yx2q10HPEupZ8N3hm59wRhb5A5pf0r
6CD4lcFYukbOyc3CnDk1t1+HZyJmaVJqPyJxvmA124d5hI3Bniv3VP4G+Z6J
i2KuDQzzDd8f8b7gUeANk8PcIG+EOI2nS+8ZAM7ZNrzPMzPndxLjin8KPxVx
m5fE9r9cGhv3ROcm7pFYBWJ8iIPFT09swq6J26BfEY/H3DgmN6Z6etDZ2RuE
PCnypWhLv8SMkUdMbg45OsT1kU9BXgVxqvhriHHoH2QXPrK5wQbBFiGfEt/f
NrltkC6x11T8kvgWyTMhBhg9p1nuGE7WY/zqxI+hq6OzE/+DH6dd7viZy0Vv
ltsHtHvsdZc4OmxMbE3wDeza9qnjiPD1bJX7HM7dJHfuFHEX5Bb/nFhvhE9e
zPux9w3AL0z7LdVuz9J+rhKfbG48gL0jyKMmj/Ez1UlhfIz4LvBp4onpl3WZ
NZc8levCuOOnJvcf3aEtuHjiY/iEOH5dmBtgU8R/Hahrvp14Hw/2Q3gh8d4U
04O85PvDr0G++Ro6dnpu3ZgYZvaswBfHnMEHTJ4iPjfibcgtq6f2J+d+Np6R
fDT8vPi/iAVm/5b1+NZy7+HCN0XsPv4Q/CJ8n8Scjo3tUyaXfC3kT+59hNbB
75A7zph4XeJv0Sex+YlvYb+WSYl9/8hOfOL4F08O98aaxfcORgpWWl+8Bom/
PdYacuFZd8iHh8Yvc3vhdbhj4K0W2gwJ5+ObI6YRPy7rFHO4fuiT/AHWeXLu
BuaWM6wR+IKJy0eOIGMaBXpQ7OfFJ0s8A/Hrg4P8xM+EDCWfi3Ecpz4f1Hgf
lVr+4Dsjd2LT0Cdjx3d0ehhH5A9ypFHgDwrvFjnGvZODgWxBxjQMNPENzFnk
1NaJfVGsbdgi3NvMYHMRV43NsFvh+EzwBmjwBvZ8Yr8n1mxoxhy/EfIX+Q2N
jKZuGmji2IhZZRzrVY4PPrzw2DMHsPvKyrHChxHLUzmeuHdhbA7cC6yuzjcV
rsW9kwfCOlLnTws0e0ltkHg+dUz8rDxzEz37Xny3qu8POYrI1UXheZFpX4Rx
YY2bFNZx1nP8l+iqjMmwYEvW5YbHHlfsJfwL+G/wQRHzhI6ZhDFvEd4tPka+
F3wt2EpgsfjLyswYOLYA+2ER10HONfrG6qJn88yFYw7JzaRfYk+Jf0CfheZ6
xAhslThOgHWnXWKfdFOdc3HknO7GheNUyedat3BMI3mgTQrHLpIHekFuvI8Y
J/KfiStGHxuRex+VTpljPKGxm17PHdvcV+e+ljvW+qjQD7E626j9G7ljP44u
bFPDx1Yl5hvcjvnwcm7MrY/oboX3NiH37evcMTnkmB9ceC8IcqJfzB3vyjx5
KXcMJPOnReGYW/LTWxaOoWU/AWIrGR9ycH7NnVNDXvw7uePJyRmfXdh/QlwG
OXVgTanO+01t+kTOnScojn2hDlAd6/9JkfPmGofvCr3wGx3fO3IOPuPQPowF
eD+4P/KQPa3gE/uBbOsQ5Bv7MOyYhHyBwvMFfyxzmjbox+wLQ7wP+fvk/5AH
RDwn8UwjRG+ceY3qGOY/cpjrgpuvVzg2lVx+vgliQ1l3yBkhBuOSoKPCr1t3
aubjFyTWmnsjV5SYw5WR97xpVDn+uL/otSrHpB5XeG1gzqO/EV9AnAF7BBDT
Qt4Cc5b9per2Youcc9A1tMFXQ7wX8wU7AL8meCIxCND4B8lLIf6CPBX2Jqnb
oyQyfgqOCnbF/lfgVuwBgg8RfYe97sg5+SKcSw45+ePIh4m5fRrsNUYOPblM
+EtYM8n/qbMdSuvU+Gbwq7LHEN8EeYDEaXYKNhDPgtzcpLCPr1HpfZzon+uA
VYNZ41MgJg9MkT7xD/4R2rN3Cng2Pgt0MPQ2bHvWDNaOsaXtYGI5wC3x75KX
yH2BG6E7ojfOrrxHAzoJ+1Ah88iXYQ8F4mH5TtmTinPAnHjW/cPzIj/Jqx9T
GldDv0e3wAeKLzUOOjzt0enxrZM/j9/s4Mx9kCODvsRcZL8m9s6Cz3Fy67h/
ngV9hb6xH9CbyXFFnt0XcpKxU7DL0KGJ6eCa3CvYFnnA5Fx9FeyK//asYu8k
bB1iJtFPaANOhO2AbYAtQA47vn984uCTYF+jSz8Lc4CYGOIXiGP4L78fmngG
9mXDV4TviPnMvmnoZOxvxrw+KPM4HxHGGr8j/ke+NXIF+oV7Br8kFopvDrx1
bpjDj1SOAWWfugml/WjEjfCdoiNiT7KPGd8rezLhT/o08vXIB9sy0Hwj7GeH
jli/cl4Nsnr1yrk0yHDyBDslzhlrWDmn5RjxG1TOdUGGkzNBfBTzuKqcV4Pc
3iR8n3yb5EOCmROXw352+PNYx9l7jW+UPEXyRbgv7vXq0vvfYO/2KrzvDXtl
cJ0+4VrEY/GfuBniMY4N48W+guzR+FPuvQWJaXmgcNwh5+GnZK+xZYFm3WX9
xcfJuBM/ROwQmDZ+jbR07OfAID85xrV4Hvwr4OtLwvX7h3sAZ0b/YG+EzYM9
jl2OHKYfYiWJXwdjxBf4nyzDz0FMMzgn/jP2viOGYWni+Vw3N2LfN++BdwBG
zjNiozJPieOBxz5Cp4R73qz0Pg59Sl/7lLBOgLmDvfN+4A0IfNZ34swvzJ2P
Rs7z8si4Fz4J/BHYVdhX2HLEjROoQ04aeVzgkcRJsrcUugm5vT0y68zkyYKh
EZu9XWZfIf3wf2KQkeiY7NlD7g85QPhAuC7xxNznVeFeyUtl/x1ivIkpJb6O
fDl8LqvFjgcmfoY84HGVfb8Tgmy8MrybHkFmwkf2ERfKvh7kFLEPJnghecrs
3wMf/Y04T2LU2NeKe0bOl0FnQEcYW9mWxaYFp8b/Umff1pzzBs5KLgBxptw/
+PvWuTE09jbh3i4J3wFxtGD/5FaDVRNnTq4F+wwxpuSLsXcn+CV5xOwv0jiM
0ZXhXfGcxItif5Bf9XTud8D+aOznhf1AzjV7kIHtkbvNnAHXZ58h8F3i1ycH
3R1bjPwT4tP4/vbOvK8mfdI3+UC8f3ISwCfxmRCjvUfhWHH2N8Dexu5mv5ot
CufTse9T28J5OuwThT2PXc8eO/g78XuypyV5FuQQsffRrmr3ZOQ9hcDf4eM7
3rxwXgx7VW3J9x95byXihNm7ivwg/DBVeP+MBTR+GnKZacNeN4PCs8MnlwM/
Mfs79Sicn8g+RWC3YLhg98Qs1+G5Na8L3DMxCey50iTQ4LxpaNO5cO5h3b5G
uX3S4HjTQxuwoCS1jkfezXaFc/fq9koqnKvI3krbqzwQee+jHQrnrLE/0raF
8+DY74h9ToilnhE5b4W5RKwCca6MBTHzexbeo4/9KMgF4Bxiesmz4xslr+Kg
wvuzsU8RfdAXuQ/EZCehH+QeNgE5W2BOrcO1iPFGf2B/njFBlyDGlVgEYhLY
0wT9C5o2+LS2D3IYPBzfKXHl5MJgk+LL5F1l4X2yxx37tq6tevfK+Zzs+0e+
KnuEkfvDGDUM40U+Y+vEOXLkwxP/AdY6Jnfs9WOJY27xNZCfC1YFZsUeQdjo
2Fi0IbeQ3BTySshpxGdF3hy+FXJ7MBcOLOxvZW809txsKXpGbv8duRcjdL/P
FZYT5CrhTwMHIVd5Y/2/JvK+ZxsVzvVjz7SPdH6byPt4vJ07JpZ9POYl5o/O
vRcoWPUalfcBJJYc3JB4njbh2dknlLxS1nf2BW7Bt59b70XnXRFZfo4LcpJ9
h9nTkljNVoVzEtmHjb0FW0XW+flupgS5gU+KHH5y/9/LnU+KjcB+xMTVsKdZ
w9R5CuS4Eb9M7D55XPvr2POR96Bj3x72nVgPnTf1M+CDYH/HD1g7Us+Ly4Jc
3jjQzBPOo090KfYXRQdgP2P8d8SdkGvWvfCenOzf8mDiZyT/lD08WQPZo5F8
Xfpjv5fhpX0B5Ffi0yO+hRiVa8P8ZC1jLmGPE+ONf4a8XHw07E0MxkBcMXsI
sMc06zFxWcRbsdcXuVrkPeP/61l4P0P2nmLOMnY8A74UsCpwKnwxvDNy4NjT
m/WUfBywH9og39GPuB64HDHCl4frfpDbN8e+MeS9k//Ovrv/B5tkiQY=
         "]], Polygon3DBox[CompressedData["
1:eJwtnAPUJke3hV+0vtj2xDYmtjWxbdu2/ceaaGJnYtu2bePG93mye610pnYX
ut/u6lPn7LPrm3zTnYbs2Ot0OmcUnQ7/dbaqOp2m3+ms3+10tqT8QtnpzEmD
9anblQaTN53OFODlqB+B8tF1p/M/6kakbraBTud72q9D/bic+5byibRZjvHm
pf3DtmXMu6nfGnwG5V04tzxtn6XNJPSfifbzUD8t9aNTPoH6S6kfh/Hnpv4I
8GngBjwz+FbazAa+i/7LgVcA70Xfu7n2WeATaX8Z9ePSfh7w6eCHwDODFwZf
zj3sSN/JOHcD/35Cv+W4/ivgp2hzMuOtwPnPwGfT90iO0ykPUDcL/RcD3w1+
ELwo+CjwGeARwLOC52T8YYx3FefOZ+wzqH+K8uzUL0L9Z9QvDN4EfD34FK63
ItfbjN9wGOXDaX8q9TX1M1H/FmMswniLUL855VtoMyv1d9JnWep3pv1y4GfA
E4MvZfytKa/Oue0Z4zv6rE3/gv7LUL6a/qNTdw5tlqT9lOApqV+B+pEoX8Ux
GvVnUb8E9Scw3kKUd+Lc/+i/GPg+2m8PPpDxf+HchuCpwD9RPon6RWn/GuPd
DL6W8caj7nLOLcV4PfCc1P3g8+He1wU/T//HwNNQ/pQ+K4Gp6uxIeT3OvQB+
HDw95bcYfxrKq3PtIxjvC/Dsvkv+vRf8M33Wp/0A11iW8vNVrr887Q+nfg3G
uIf6TTn3Dxf5mzZbgEel/QqU/8e5F6kbTPvFaP8I58an/jfOzUP5T/r/SPkA
yodS/zv/bkr91Jz7zfnv++W3fgd+hzEWAt9B/YrgrcH/R5tNwCNwveUon8b1
HqRuJtsy3pm0X43+21O/Tvu876f917RZlPJXnFsN3Kd+acoF9zNXN/d0AWMd
xzGU8liMNyfjHQ++BDw2eC7wOYyxJuMfz7kZKa9F/wcZ71zGmJnyKu18fZb2
i9P+a66xBvXjcO5LymPQ5nfazsFxH21v4tw/lM+m/kL6vAIeTPvBnNuI8gm0
X5rrjQ/+lfYzgKenfkHq9mT8Q+vcS5++04Nf5fz81F/BuSs5tyT3+Cj4HPAo
foP0nw88A+O9T9/XaL8AeH7wxpSf5ZjR5w3eg/LJ9F+c67+pPSpjj1YFz02b
hSm/zrkFKQ9j/KsY/zPwymAu09mZ8tRc4yTKF1M3B/d3Fee+Y6ztnAOcm5Ix
jqf9zuApKG9I+/Hb+T4S7Vfn3LfUT0mfa+h7BwOvTP2L1K9KfZf6bakfjfoV
ne/g38GP0OY+xt/O+QY+Grwt5R7124HnAnco9zm2By8J3NxvgjazM/Z4jHcr
93I/eEvqPubcBlxvN3CX8j/aJO2N9hQ8Nu2vp/1IjLcH4y2hTaO8NscP4H38
vml3A23Goe2q3OuxjLc7eBvqPqVucvADjLcV+BPwhn4f9N8AvBv3dpzXB49F
3SaMsWuV+T6kn3f6MmP+QP9NaL8v5XNpvx/jHwr+gzZTgueh/bW0vcP57rdO
+5fA8/n+aLsXxwGUf6X9FNpH2o9OeWOutxPlXalfh/o3ODep96MNAr/pmgB+
Ebwhbben7cngBxl/6/b3bQRuXMO43uI+fsr7uz5Sd402mL7/cjxB/2/A71Ie
mzYH0n4IeEx/u33AX4JH1j5y/Er7A8H7Ud6M8d6j/mrw3PRfgfYvgycFX+8z
pf4V8MzgDShfSZ9v6T85x2iUb+D4i/JZPh+e+ea0ed/3ybkhlA/Q3jPOE9Q/
x/irMf6X1E9M/YnObfBK1G1D36P5vbc1Wa8eoc/yA/n+/6DtmZybyrWaPp9o
i8BP0uYQ6mfi33nAB/suGa8HXsfvk/Jwzi1C3aOcW4HxRgN/3d7/O4x3L3hz
6j+kfj3qdwL/w/39xbnZKC/IsUU3c/BG2m/OmKVtwZtRHo1jH9pvBT7etQn8
L3ht8AauXfZnrI/0eRh/efB5rX15sI4/8hNt99M+Ur6cMb4ET8IxCuWDtF9+
S+A9/X0cb9L/W79H1zLazAH+wjWK8hFcc0baTwu+TbsDvpr6fek/lPppwaeA
D3LNBc8APqMXmz495Ys5NqLfmtS/yr8zc48XUL6G9zMv9/8ufRan/XDO3cq5
t8GLgm8D3wK+hP6b0O8r8JrUvc+xJPWPgu+n/j3wEuD/0xfUlnNsBZ4T/Bfl
rbne9JSHM8a4XO9CbRzlT12//X75zTuBZ9E/oFw6P7n3c8EPea9+/9Qvo3/F
v/dQv6HfBuW1GW/bOuu3/twE4AVpfzvX/4RzC1B+xzUQvChjbuG74NxS1G3B
vZ9N+1Nbf2xq8ALgecHXer/gBcF/N3lX+gK3gmel/0WMdx5tzuPcKbS/hfIg
2s9P/cngm7Xl4MHgk1zjwJOD5wNvDp4CfCP3OwZ4C/Ag8E3gMcFjN/FtpmHs
Q8DnusZS9xPn3meM87Sp4BnBp1AeyrEx+HPwRZSPov/8/az3f/jbwGu39mpN
xtuEcxP5/sGj6j/7Dvg9J3DuXK55IPVHUP6b+mmoP4D6SSkfy7nTuf7SjHdk
LzZ2KcrjU38oeDXwuJRn4TgXvBvPbDjj7VHnW/iZMa5mvJmpP4f6XV1fqN+f
+sOo/5P6qbwe+HDnDnhq8MHgo8D/gqcDH6RPre/lNwGei/GuYrylGO8ixpsX
fAP4QPBTZe73KPAg8JKU96V+Qn8beG3q9wFP0I9N2LvK/BlO+4W4xsb83mWM
KfzewHdy7d+b+CINfW/n+nc2+bZe02cGb0SbCcDDwCOD76J+LfDr4DXAZ4CP
AZ/G2DeB72CcEXqZ7wf67dB/uvZbH4f6ibmfI6ifgmsOo34i8OHac/CEzvUm
38bTtF+Z9ntyblzKm+u/ODcYb0LXNs6NQv00nDuJ/jtSPzXl5xhzZvDK4L0o
P1nFv1+K+zuM9jc18Zdv9RsEr8x4b3g96vcCfwO+kr7PtP7YquC3XBuo3we8
FPg57TV4t4H4h2+61oH3Bi8Nfh78GHh38DLgF8CPg/cAzw++z2evL+P9gy8E
DwVvAp4WfBH4EvCm4OnAF4MvBW8Gng98D/h28Dbgwa4R4DvA24KXBD/r+gTe
1e9Bf9C5xHG7to36Z6h/mPpdqF9An0h7A94e/K32graH0nZ08BN+TzyrO/0N
lN/gGJPyakW+7zl4nuvyvH+g/djg16kfg/ohRezBFdQfR/8H9dvBD1XBT7p+
0eYy6k/qJ0Y7jfKXXP9yrv8o4+1I+8XBT2s7absz+CvwFdQ/Rv1O4MdcH+h7
NMcDVa73P8p3+cxcH2n/AOW76b+D8Tn4RvofQf/xwEPAb1P/PPX7gleiz6X8
njmMG8FrUv8+9S9TfyD4efDq9F/UtQ+8Gv9u2c2apL0aZjxA+8/a+baS8VA3
Nt/14VTw4+A3uMaYlKfnmKebGER7uE4T/36JKvHU21XWyjWKxIvaOe1daczI
ufEdo5uY1PjqvDpr71icP5j2Z/Pvc9p7/T/K7xWJjV7kXE8OQX+/mzV/VL9h
rncAbQ/k+BvcNcbpxqe5hPIsjH8d/a/Vl/L3g98BvwDeDzy7zxd8A3gr1xfw
9eDrwFuAZwPfoO8G3tJ4APyu9wPe33gU/B74JfAB4MvANdf+GXwk+MYmseJv
4KPAVzbx3b9s49mruP+9uPe9Ob7l3DVNYv3v2/j4Our3pW4/jl+MP4us5yPR
5nfK71Sxd2sVWd99/sYvaxaxXwcy3rT0PVzfaiDzy/XwnjZe/bDKerhekfV7
oXb9vLflWxatMzcfaPmP+Xmmy3bjgx5i7A5euBsf+iDwZO16ck7L90zerifn
tvzLoHb9OL/lnyru71X6X2fcB17O76GX2HYG8KRt/HB2y6dM0a6P57V8zext
vHxju75/ov1hvHMYb3a/9zZ+vqn1B+ap4+vf1vobX3Od+fWdivBZv4KXBe9c
JL4Yl/Z7gE8ush7/4PNj/OVpNxH4H86PAt5BjoZzv1Xhc3YpEo+81vp+E9Bm
R85VZWK1fWk/Om3n1p/rxgZoryZi/P31xdp4enxjIvCpRdbf8cB76nsUWX+/
os9g8JZF+KM5W/7t5tYfmqHlv65o+bgZW75rWMuvzcr1F/L75rizjH06xm/f
NaMK/0KzzgpF4uEt6T+l49NmLPB24Dm0V+AJwVdXmctjc+5zxnsBPALlFYus
xy+CRwSvVGQ9nJX3vWovbUcEv0T9SNSvXMQ/etoYGbwMuBnI+ij/uTS4Bj9T
hQddlv8NgJ81ngAvBx4BfH2Vb8d71ubfaPwGXsw1j3/PahIvvUB5Fdrf43rf
8mVf8e91dd7XbT4X6ofz7yFtf9/3mz5f6g+RZ2rXP/m/y1r+Zvo6/OflLX9T
uAZrLxhjyEC+c7/3tfhRl3LuVsY8SG6hbdP3G2zvdUXKpT4O+D1jMsqXcP8b
gyfRDwPfX2Vt0YeekLHv0l9px3O+3aGd7qePY9xcxXb6Dv/gN1zUvrs9+XdY
lfVxcvCqRfhG7YX87br6ogN5Z747+3zKvdzB793MZ2cM18TmaHtcA/5pcr9H
MfaRHHWdNdu1e2LXILmSKs/WZ3yRsVwVbmSbdr09nWNbynv1wo+8V4ULlhM2
fvkLfFg/v/Fi8J2Mf2r7jZ8KvgtclxnTsW+pM7ZjOrb35L05B4Y2mR+79MOB
yIVoD/UF9Alcr49t47nTwZc3mc9/gv/Wx6O8B8cAdZuB56a8fp06Y9qdm8TM
xs7fgLeRq2hS/sp4tUnMY+wjH3qFvhnHiP2Mafx6i/OhCn+/O/ga6sfqhpOW
m161CXewPPgkyjfTfv0qMbmxuTG5sbkf2S7GWnXKxvyO5/ORi9Ln0fe5RxtZ
ZL5c0L6vg/uZsxc2sQf79LNmWf8keAznNmN8TvlxjlHBl4A/q+O/6vtOx7np
5E7qcK/z9sJn7lOn/ADHmnI1Tbi1D+gziPIkHA+D3wFPSvlT7mde8Ibc4/CB
xHN/U3cBx4euBZz7SIMhh0zdOBz/drNm/Ld2UP9LPxyC+YxLBxK3Gr8+oS+n
jSrDd83Svk+51VXb9+3z810M6eV5Ttvkt90kR0/d7RxrONfBW1J3Dsdu/XDy
BXVng+/t5dy5bb1zb9cWa3/9NvUZzgffVoe7+YQ+W4AnrMP1yflt2z6vQZSv
kq+m7us63OpUct7UXeYaye8ZUw4JPFWTOmO45evkjMwdTd7L8/V5W16ec8/W
yTmYe/Aavo/LtdFlchLmJkYyZuomZtVGjce5Xyi/2z7/RxnjN8pDafOpc6Nd
744swj+OBt4bfFQR/m6Udv07oggf+lVrq6ej/7hca5wyuai5OP+FMWC7fh9e
hC/SnzgFfBZ4Y/Bv/XB3s8gRlXmGPku5jpUGYgO0BXdXsbcj0X932h9WhN96
swiXciv9j9KOGc91M3+cRxPq11B+muPrfvwL+YCdisSLLlajd8O5HVnFL9Q/
/FcbSvnfItzyNtzTPfIMVfi3TYvkj+5ubbdrmjmUm9u1zm/wmir5FdePzYrk
2+YH39YL53NHP36p/unGnLsF/EkV7m+DIvHmYmXihzU4FpfvNI6lfhptLG0X
5tyq1K3GsUiZ+PFB6p8okn95tbXPqxTJRxlnGG+sSfslytgMbcctVda3H6qs
j9sV4Re/r8K3b1uEvzya9ov0k6M6lvJrdXwVzx3j91KHizFnYe7i2ypcwqz9
5Od2on4JbRvHea5XjHlcFc7mP+6mSewupy63Lscg1yAnLzdvTtTcqHN4e/Be
znHjffA8TfjnUfo5t3cT/kKuQ85j39beyCXN6/tu7bX3NovPE7wfx0T95FTl
L2/j+gdX8bflfjet8+x9B69w3kTbVvyzbxF+o1uH796vCN9UgXcEH1yEr9O+
aEve4VhrIGu0a/UH4HXB/1bJN+xThE8Z32+6k290B9e2Kv7HHkXyH9owbZnc
5moDmT/Gf3KmB7frX9MN53pQe/+u9cYkxiafMs6vneR4zPWYr3ymmxycuTjX
cNfy26v4S0P16crkIO+vwzNvTv/J5I+Medrv86Qi/NUg+h3bS47CfNzDTb5H
v8vjqb+3ynqvTzI65+5s/Qd9phHBl3F82s37dx6sTP0ujD8V51apYuNci2Yt
Yvu2M84Gn9JN/upV7mdn42lzVwOJX+Wa9uDcppQnoP/I3N9sVfLfxgNyF/tQ
v6WcTpmxbjZHov3U/6S8CvezRpn5vwv1G1I+k/77Uz+J84djPfMRZa4lxzUL
5Yc4f0Y3HK382rRl8nfG9NNR/rtOvH9KmfyNa6D29Ngia+Pn9D+nm5ym+eN1
qvBpvo91Kd9D/9n0Z32XtH+U/rMbLzLeicYn8t3gsel/P+Wn68Q//taTqN9G
ThK8DPUfyV9z7AdeyjlKeX15lG5yLpNR3oRjd/kE6t+gfDXHD+AnOU4rY59e
c/4bo8k3lvHXR+b4s8j7fKsX+3yGtqzK2iQn+2GR78LvQw5+ryLvY5VucpTm
Kk8ow8WagzEXI48hn+GYzg/vx9yiOURziWtwfOe7ZIwZyuSn5U7NGZo7XLKM
P6Z/Zr5jqTLrgTk/8y/6bPoWX5Tx5dbk3Pe9jOnYC3B+6l7moHNxqHPb9beb
fPxLPO+N9AedV/Tvl+Ev5XxWprx9mWd1ajd85Mu038F3S/kM4w3tLviYbvKr
x1TJpZ7oHKH8EPd3AuXdqDuH9pNV0Rpspw9B+TrtTNcfxHronNIOdeMzf+5a
xPW2Ba9E29Pp/zf/bgM+mfFOA+/j90KfHark9xav4huaczf/uHeZe7+Fc4Or
2H+1Gcd4Xj6Cf3/rZg45l+Tc5d5/azkIbYr5N/Nw2pqPy8xFNQzLea0yc/cZ
jqXBH5aZm2ogljX+r8OvybNdQP+H+Hdc6p7jWMZ4scxcfUrO3FgUfF43nNdZ
Ld91HPdzYTcaBf2L4d28H7m5oznu6OYb9lu+v5/c6fDW/3B+zwC+po1J9fn0
/Z7wOgPJ8ekv3uP74tyPxhOUN+I65w8k5/UF9fd1k3/r8ryfpXymazX1J2lD
wQ9yvNLPYVkbuQNjvA9+qpuc257gt8GPaG+7ySH7TfptapPNt5vTMrf1cPuO
zamaW32gm3ym35fls7rJKb9b5H7kEOUS+038LfVQFw2Ew9e+msOSA/Kb9tvW
5k9QxgcT+40e4rMu81vv9B25Jpfhd8bk6JWJTeWXr+M4rAwPKx/7Mf1fL+LD
ai+0G8YWzzPGZ93EYOZg1VCopej1km8x523ue7xe9Az63NpD7aK+uOuI64k5
PfN7F3P+ffC7HFPJoRWJddS0qC8wf2xuQk2D2gZzYubGjG/U75hTNr40R2v+
whyhuULHNH/pmI5tjs78o+ux92bOeYixFG0m6sUGa4vn45i0Fxutrd62jP+v
v2++564y69kTHOMV0VCppRqxF37pQo63af+08UERTY7aHM+ZP3q1yNytOH4q
wk/Z1zXMtcz15udeNBUSP2pKzP02veQLbuMoKT/CMTJ1B5WJX9TA+Q3c4zOh
/CTH+NTfUubdPMwxUpEYz/p7y8R+5iMc2zXGtUaNiloVr2F+7ZEmsdZlVfJJ
U5fR1niProdrteuBOWZtmroZ9TPaWG3t48yX3Xrx8dV/mC/du5ucsLnhXcrk
3tW0qG0x32vu2RywueDpquQGzTmbexafTvlUjm6RPKb5TM+Zj/b3qi0wB2gu
UL7d9doctrnsqarkC81RTdPiE3vJwZlDdEzH1scwH7lTmdy8mi+1X/q4+rrH
FMk37l4mF6hGT62e65brlxoo9Uh/lvGd1XCZr1bPpdbDHLa57H/LxD5qbNTL
qLdRe6KGRi2N8dHcnWho1NKoz1L/oaZLbVfJOQWTO/Wi91DfZO5TjZJaJfVH
5krVEL3erh9DusnJmZtTD6AWQU2l2soXy2iPtHGnl+EAtN/acbkB9X7qGc3h
v93OR7VV5mTNzTr/ze2bMzV36vdt7l9NgdqCCfQ/nR8cL/fj76m9NMc7fluv
NtAcpLlIc6jGF8f0sr726+QrzVteORDNg9oHxzRf6ZiOPW43+kI5Nrm2sgy/
OTb9d3M9L5IPHgu8K/iEIvod4wv1N/sX0Qt900/91N4j58Yok+vVh1dvaP5I
7dTRXHNSrj9Olevrw5qvVk+jdkWNjVqbRZrol9QxDWP8CYrkt8z5XF3k+x3G
9S7h3OxV7M0V4KGtD2177c0VveTEPmmi51TXee1A9CJza2u0MwPR46k9USOn
Vs54Qe2emjC1Ya4Pav/UpKhNGajyve7ei77qCXk4ysd3o2kYuQo36TnrxEvR
f2/wqJTH8PvqRUOknkj/yHenT61vPYb+lvxiEf3Tr2ViczWH6hPVg6r1VbOr
dvfmJrGWOpXhbaz4uPFJP/kZuVdjrQ9dE4toDtUeFv3obTatUl5Pm1omv2Pf
NTjOrhJzGt8vVCYWNd8ziLrVOc6q4v8Ntr/rHsfDbSwrx6BGVn5j5n5ycubm
jE/MfatpUNtwYBWtlGOaP5JzlHtUdyS3qWZSLYXx+fFV1gzXDjW16mO04dpy
NYTq/96i3V29aHjUPx9VRduipuDoKt/vpp1omtUPmtM0t2nMoL7vuiZ6LXVb
Nw7EJ9A3mK0X/adrhGvFn93os1xjXGvkGNVP6hPqG7pmmhPW59P3c800B6xe
Vv/8aco3DMTf0H9TA2dOyTXTtVMNpvpJfUR9Rfm5+8pwFPpT+lVyF/rZ+tu+
A/1vf+98/WjMbpfn8JvrZ84599T9qb3ynPoE69W2qVlQu7AXx/itjRinxWpL
1Gio1VDj6Fo1Zj/6v12qlP0mBlq8RCcaQbWCzinnlppe9cXqe9XzqDlWezw/
v/F6yldz7knKC3DcCD65Gz33jowxWj82XFs+pIzt8h7Vi1i/eCcaQbWCaoDV
AttHvaB6E2MPOZX9KN/XDz88c8u3GSMbK7vGqceQM5Q7lIM9qAjn4/c8ShUu
SE3TJ508Y+fT1lW0VnLy21L+pkwuR822evrtqsQrrmGuZXL4I4ircPvWqwUd
pY1ptuCo+/nm/fbVfJsf8tyW7fc6VSeauc3b9lN3sgdgq/Z+Rmj5KNfWMZvM
1fM5PqjjI5tHN5+u76we1LXR5zu45X8fZbxh3fDD8tePdaIxkZ//qE5sog1V
b6cGYa4iGg21CeZDjG3V3Kq9leOS63JPwbiU9+XcwZ2smWuDRzfe62QOv27u
iGOSTnxutR1yEPr9+v9yE8Ywj5fJARjbvFEn9nQNVB9k/mQ96s7sJp+yQ538
qD69uduLOH7pxOdeucn1jEW7HJfU0UioHVdDrnZCDcV8RTQxaiscT9/fGNpY
2hz/a0X0YOb+z6qz9+B2YyrGf4r38UcnnOfQOpqDuYtoXtQiqBmYt4gGRy3B
NnW0Evq/l9bRGMxTRMOj9kD+8+dOOB/5TjVq+njqDX9qosEwbvQdqc1Qg6b9
fBT8F+U/65T1EfQV1LiqdX28fb7G+BOVeUfG/qe1MZ85C2NxOaypyrxfuS31
nLv2sma7dstBzViGk5WbMuY2ZpWDNRY3pl+xSo7QWF8Nk7oac2pqm+QkF6ny
/Z3d8rE796LZXaAJB2/ecuNOuHk5y7HL+B9ymXLycoJbdMLVr8VxSDcctu9T
zuOvInPC92d+arFufO6JWv74bsp3cfzSvg/jaWM+tTjGyMbc8v0/ts/TvTaP
tM/XmP+tIvG1XID5DmOxx3rhi1es4/sbA7gfYiXw652ssc+1+TFzTfqQE7b5
EfeOjNQL/2q86FpwOccqTfJ7+jpX6lM30Teo15BTU88sP23uUJ9YPtr9Bi93
o/l/oG413UXi8+HmWurkUoyv76qT47+ySs7J3JMaEbWe5oDNBX/Wrv1qmNXT
qxc1f6LGVK2pOVf1kuomzcWqh5UvVjOpdnLCNoehhrQ3EI3Tj0W+AZ+3mgz3
GqmpUKuhxkUt63SdaF/k3LV12jxtqzl4Y0j9HXPzamDU8slJq41x/4T6EjWd
ajv1cfR11KQPLqOXV2u4XT8xnf6s+SU5Yrli81nOPTliuWLz7epJ1Eyo51IP
slgnmiS1Seo9zL2bI1VD8DDH8f1o1NSYXd8kd+2+prsHkpNWW+Y+IHPV+lj6
WmpeZyujiVIbJecnx3oax5L95DTUo55eJdcr5/RgGY5Yrtg9E+7fUiPiXqNl
O9GOmBNQyyunb65ATcsbRWyc9vKRKrltNWvqQXasw536Tk9t849qW+S8fq6S
f/XdyCldWWePgT6HOZX/a6JJlxeRH7m2Tszhc/H5GIuYH5XLl/PT3rjf6IVu
ODm5OfUFfutyhNqPE1oO9MROuOeBOty8Gn73Bx1WJ7cn3/dKnTnt3JZDktt6
qw6XJqfmfjE1KmpH1VCpXVGf8E2RNcL1SA3Kef1oBtWmqEFxL5aaTbUpalAu
6EdzqDZFDYqairE60aaol/iiCN+pVkBNjXtN3OOk1kZNjFpRNV1qZdQsqk2e
ohMto3qKw6rkgMyfqJFRY6fGVO2MGka1zZN3ot1Q4/gd1+t1o330ezZHOMif
5NrTxDfRRxlWJy9kfkjNw+5tzlSt/Zad5FLNwbqXYptOcrNyxnKT+rDyZeY0
5GqMwYzX5JldK7Wh8u3mKVy7fF/y3+ZFzI+43gwqwzPLN5tjka+TX5C7lhOX
G5dP0DeUc5J7erJJPtf9dupN5UvkpuXM5c7dg2F8MVeZ/IL+gt/30UX46V3L
xG5yCPfyu55gvJP9ForoWdXfOxfNMcn/a/O1/fqQzm/5c7lCvyc1wO6ncO0w
p6v+UH2N2g81YuoTt6/zrFxDXEvU8/mt+M1o1+SLnNvG1PKTvzbxxeSWjRd+
bLLXy70m8rE/15m7rrGutQeX4Xtf7sSfPrwMd/lRJ5pE6/W15cTkxlyjXKvk
hP1+n2mi5x2ziN7x2SZ6XvejqY98uon+d4wi+kj3u5irMod3MWO91ERPqd5e
/eqLTfSTkxXR6z7fRI85SRH97wtN9JaTFtEXv9ZEbzxDEb3y6030vjMW0Se/
2kQ/PH0RvfAHVfZTrlPEfr7SRG88XRG98Htt/Ld2kXju4yrvev0ieswbmnwr
fjPqmd5oor91P5/65/eb+F76aPpqa9f59v3m/fZ/buI7qBGRL3yriS/jflH1
1Y/po3Wy/2njlk8RH18k/zhJnfl2ZpH82DtN9MP61PrWbzbZ66OPpK/0bhNf
Wx9SX3KdOrZGm6RtWreOrdEGaYvWq6PN0gZpiz5o4mvq0+rbvtfEF9XH1Nf8
o4i2VI2p/PZiTfQb5kLvG8h+GrXv+m/y++ZH1ePrH+7QvmPftXNArbbvyHfl
O1Xr7ZxwbqhBVYuqJlpOeZlutNJqqOWcl+5GW+0z9Fm6p1Htuhp3OVQ1Q2qH
nBPODd+ZWnZtgLZADZ5aPOeQc8k5pBbeOeZcc06qbfcd+64f7ES74Jxx7jjH
1J6bc1aH5xpuLtqct3v/1CiYC1czqHZQjYJCSTUjA2XWRLUkajyebtdbtR/m
6N2LoAbE3L1zwrlxaCfaFDUv7r0zh68WxpjM2Ewf2/1S8zXRmuoTu99PTYR7
uxbpRCthzl7NqXsezOWbkx+1zJpqrl5NgHtR5PDk8tRcqC3UZ1GLoebCvV2L
dqLF0AZqC7Wxav3V3LgXcatOtDjaAG2BNkPttDZD26HNUDttfkz75fs0f2v+
TL28Prf5X/Nrxpa+f/O97u9x77GaYv0d92eozVKjav66aaI/1le7biA5AmMl
9YWvtPZO/bUaA/M16j/V+6tBUD+tPlWtluuhemv336g/NqYy31s3sWWfFOEL
zd+p3zdm1J/6rgm/Js8mH/Z9k9jQmNHY0fyeWjf3MJiPVtOktsmcyGN1bKi2
dGgn2mU1cGrhzDmYe/D6anHdQ6g9VdP/cZHrq/U3X2/sbY7QPbfu1ze2UMNm
fH1MnfzXqC2/qT+vvkmd0yDwnnX0xWqTzOfrL8mHvV1Ef39InbHlCOQK3N/o
ejNrN/l2bba2W5vtXg41fmr91KmrDXS/hPZKH1df1z0U7slQ3+xeB+M7fQz3
kP3RZH6qHVEj/VUbz5lzd739uska51rnb9BfU1PetN+3WnM15e7tV2Or1tzf
YA5eH9Df5vd5RRV/5j+t70C0Xea8v2yyR2PaImuGezeMR66top9Sy2g8Ys5P
e/hFk2c4XpkYae/2/cgzG4N93GSPy8RF1jj3vqhR928LqMFWu+6embKIzXcv
jXsSRi+yps7S+t/ygPKBHzbRyPu3GtRsq51XI28O2/ehdl6N+wdFNEXqF9WI
u1fryE6048Z3I5TROKtfNf7VJ9OHv7pODl3eSf5J7ZLxuXkq81UbN+H4P23t
kfbCHJdxkfGRe6nUlPu3Hi7pRGuuxnnsdn6rfZafuLEMP6oWU02789Y5ptb9
P41/GR9d7b8clVyVe1Tdn65mU+2mMYB/b2Cm1r6f0trLOdvv6eLW3n9cZ++Q
Ma776eUz9CnN/95dZ8+FGjv++c/fdo/hNEX2ILr3UJ9QTlVOSV9RDYBaADm0
sZr4EHLDk3XiW5jzNfer/biwDj9lntF842RN+AC1AJ9Tf26dPY/6nGrsvmxj
PmM/fZAP2m/Ib0l7dXkdTv+INqb6tI0JjQ3lQG+uE1MbWxv/HddkjVbz7f4C
1245dLl09SO7NtGMmINTs/pXkz0matCNP/zbDP4NBjXy2n+1g3LMcs1qUP9t
8r7cm6Fm6NsmOWtz19rzp+rYZPd4u19fW+0etDmL+DTuTXMP/mhFNNPyg2qm
zHnLOf7Szmfz9ubvP2ryNzrmaNd//3aHf9Ng4SJ72PQH3EM7URG9u3tr1cDf
V0XPpdbcHJi5MPPfozbJKZlbMn+zcBMfUA3kNJ34hv5Nj/lbn9K/9SG/p9+s
/3xmnT0hb7Trt+u58WxRZo+1e6/NAZoLdD/wb03WEHNP2nRtu/FwXYVzlXtV
82XeyvyVfwvFPVhqJIH/xZPybcZIaqjulRtqkkuSo/q1/b3qatXXVgP5vVeU
4aTk937iWJDya73wkfJzxmBytI/U8XlvbONL+Rz3bF3exr/yJTfVeVby+wu1
z2/EKvs15fuaOrk993i6H1WN51ltPKz2U82z2mdzHv59EDWlt7Z8jFpBNax3
tnyS2lY1qne1fJDzzz0H57TxtvHs+1X20pujcf+8+8/les35rN7kb0r4tyUe
6oVfNmYydlKfY+5F/lq9gHvW5Efd4zRz6/+598k9O2+2/pF7eeSrHcuYVD5U
Pbrv1r+54d/eUOM6uOWH9R/dIzV7y2e6V8A9Ru5tlpOTm3NPjnuV3WM1Z8tP
qD+Sk9L++fcH5Lr9Gyf+rRP3LE3R+svuZXLP1kytv6v/7J6nyVt/W39CDlAu
0Jynfy9APtp3L8ch1/FfTrEfH8Bco3uI3Mt7RCd7i4xJ1EYafxqrGDOrzTPG
M5ZWU+ne4MM60Vq6Hupb+DcbvmmyR8q9y4d3sndK/sF9N1P6fpvEOGoBjYGM
fVZskst1j4D8qz6Lvov7+8zVytdf1ksOWP9HzlPu03Py9+5h8m8FXdrJ3ia/
Ib8l9xjIn5rD/rP1r81tq0lQx/DfnuImOW3970Pa3/v/LxkDRQ==
         "]], Polygon3DBox[CompressedData["
1:eJwt1gm4jmUex/E3r3OOHFGpNFK2rjRoNImYZFcTWZKYaCyNyajJUgrDlCyR
miFEC42J7FuW7ISUsh6SLdtgNA2hhmzR5z/Pe13nd53n971/9/9+3ud57qX0
E12bd8mXSqWmUxZ9k5NKTbwilVrJVKb1fC49p61//lTqeuxYgVTqBWwofwP/
jLZr+Rb4UsX2pFOpyXgRfjg+N3I0Ue5u/lJ2KvVH172wInL/lcuie4xbnj+I
H+LfkJ3nuhh9IF8l7gNvZYzjcu3UeZb/H/4q34weMvZw7Plg+vWRKYH1wUZg
H2E30Uz1qvGv0yT+ShqFVeBfow/4AjQSK8//nabwuTQau4P/Sc3O6j9FucbI
w/5Gk2UK0ptyFfmTcnXcW106gLXEamDd/Y4C+ubQWX5o5NQZxh/S/x9yxbFl
+nWk2p7PZ9gQGqf9suxg9W7lh9GH8X5oAlaZXxXPWp+5+n5IP6j1pdpXxbv0
fwBdwoZRI7VG8Yf1P8y3pFXurx62Td8f+QZUVr1r+JV49pWp1MvGeFOfm7G+
6pbgG9EcfavJfIGf1u9m7K/ab+FL0nfY1Bg3vot08k7v4ovKdZErJnMjHcdm
UAu5+XLt5arwr8qNx36ZlXw3a/iieGXXt2Gz6Tp+HPXUb5p7OSH/Db/ddWFj
HOOP01GsG11Wu622x+lifFe0Qp27+AnaGvOlaa8xKum3Tlspfhb9jl9knO1R
g9+nz03GOIV/T//BOtB6fQ/INdbenq9AG9VpyOfp24bvTX/mG+IF5af4bbOx
x9RZrG9XGsPnx1fq87rsa3Q5+mHt5M5RIX2nxXeBP84v169zvJfwBZL28/gu
+hd/gmrGfKZ+2hrrewQ7or25+gf07cjPxYtpby6Xi9fC1tJIuVT8Xrmn+XNU
WHsR6oXV4U+7biXWJeac/t9im+NbirUnnhP9G3vFGO+6/sk9D9JWhu8ZcxP7
Np18I/GtbKAq6ryoQBm8b7wL7AG5t3l/qQ3aDsa3jzWg/dijMgewbXx92oe1
wDpQU356OpknMV8ew36LvZv+/89LbcSm6Hs/8xZ2Nfa+TEdqjo3FimK75ObL
PYGtxWphR2O9kGuDzcXKYoewmXKPYguwctgebD+2FatHe7FH9FuA/YH/VK52
PDO5L7HVWDm6nbqZl9OwZq5ny5WU2yG3EZuNlQyO3RnPL75f/haahVXC1mMz
Y05TCaqmXn+sklqfxDPwvGfKTcce1j4HK6XvV8Zoiz8U6zVWEMvD2mGNsclY
LrYVa409iI1LJ/vOJqwN1jDWvXTyPcR30R5rgk3FCmHbsO5YJ2w1VgM7jv0J
a4VNSyfzLubfQvf3NLYVa4qdxD7CnsLysCbYCWw3tgG7j3ZiTdTai23h69Ae
7GFsW6zFfEX6GKuB7Yn5y9eMeYQ1xTZhc/hS8WywX2O7sHV8ddqCPYDtwD7l
76FNWAPsq5hLfFXaiNXHtmOf8FVoA1YvJ3nna/i7qXLcp3e0E/ss3hdtlrtf
bjO2KPNdxPdxn9zW2KddV6CVcvfKdaMn+VWey72xNnounbCW2BSsOLYXm6vv
77EVWFXscOzlco9g72HXYbuxqvGdmvPnvdwz2ibJLI59OeaaXFu583L7sDys
Ln2NNY89OfYamZHad+BjsDxsievyMbbcb7CvsU2Z3x/PobffNgdr7XqJ/nfK
HcxOcpux2lQr5pPcFmxx7B+xLspVj7MG1jaeib530Mv89zTGb9iHn5DbL7cG
G8L/INMb24ldwOobqwGNtzYejrMKdY93K9dI7mzsvXJHtW+J+aHuQpln4/nH
+8Yayv2YnawJsTbMiLWB8rnnU3Emiv2THxJnB/1O01L1huJ7Yo3i+8Z5xfV3
6vVQ4wZ+IL2NXcAGYKX4HpHFdmOtsXx8TWM8p/Y6LEfNeVifONfEXplOzoHX
5yTvON71FP+n0hXubzA+Vu6S3CvayvJnYm6pU4Mau89jOcl7j/ffI9aEmOj6
jsY/539Fa6AH+fz4Iu2LYw3BLvg/CH9H5qIxBmKl4/wRZx3sNlqG1eVH0nK+
DM3DavJp9earsYCaxd7s/yw8K96D62f87upxFpVbxi/PTvaZbJlRtEKtsjQf
qxXnmTh3xXfhXp6PMwv/Ig3HTmIvYDfyL9Eb2CmsJ/aLqGWcAZl3FM80ztir
Yt/L5KJvYexjbFCmXoxxVfwurF9mH4yzd1acA7CBmXuJd14IWxJnCexQOjlv
x7l7KfYX7DD2JHYZW4f9E8tPWdTB71+NDY69PHPPRdRbhvXBjmCdsFRmr5iB
XU3XUEd9J2GjZNaqXdGzXZuTjPF+JhPZynKfYxNcXxtrvnLl5PrRiMy4vbDi
fH8ajZ1JJ2fIOEvGb47f/lLMa+OcV+vWOKv5xsr6f1b2XDpZ/xZm9rHYzzob
t2tOsm/E/jEizk6xbtJb2rNpeJxTZb7AJvJFaTx2e5xNc5L1MdbJi/h0fpFc
19g70snZJs44Y2N9wkZlJWe+lMzPPYfLiQ==
         "]], 
        Polygon3DBox[{{2244, 1164, 1017, 1016, 1308, 1980}, {2246, 1175, 1029,
          1028, 1317, 1982}}]}]}, {}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0jtIV2EYB+D3/zdL07yMJShCjZVLg6XmrUG8IIoJtrnZoEtDDQ7hYLS0
JaIRJSYiKqGCU0tugoPmpUwzHUUcWsySfA7B+c7ze9/zne8753BKu/vaelMR
8cZoTkcked/plMsXIwq4yRLu8RbnXK/kr0sRi3KTfCJ/kh/JeVkRh/JjuVD/
GYv4gr/1b8hDcsp+H3jV/Fx5Qc6Wt81ZklfMa5RfGWvqAfYbs+beuxDxRe9U
btH7yAq9db0/cqteueedkzf0/rJN767evLypV50Z0a63JVe69yur+I33WW1s
yzX8zlrusI67rOcPPuBe0rdeh/UWrP9T3cTn6k7vsapu4Odkbc7zDsd5k695
nYO8xqcsYA/T7Eq+sWdv5BErOOpbPclwv3xszqy9iuUxOSW32j9fXcYu9Yy5
eeppXuEUcznJHE7wMseZzUPv9Y8v3TumZ7s4kM84yPd6torb1u9Uv1N7tHjL
zOSfoiVihI4Ydkon383Fh6n//9s58bpN4w==
       "]]}, {
      Line3DBox[{1739, 1954, 2216, 2435, 1738, 2311, 1880, 1740, 2312, 1881, 
       1741, 2313, 1882, 1742, 2314, 1883, 1743, 2278, 2315, 2096, 2158, 1884,
        2160, 2300, 2483, 2159, 2097, 2161, 1885, 2164, 2484, 2162, 2163, 
       2098, 2217, 2436, 1744, 2316, 1886, 1745, 2317, 1887, 1746, 2318, 1888,
        1747, 2319, 1889, 1748, 2302, 2320, 2174, 1890, 1749, 2279, 2321, 
       2030, 1891, 1955}], 
      Line3DBox[{1751, 2218, 2372, 1750, 2219, 2373, 1752, 2322, 1892, 1753, 
       2323, 1893, 1754, 2305, 2324, 1894, 2205, 2280, 2325, 2099, 771, 773, 
       1636, 772, 2100, 774, 776, 1639, 775, 2101, 2220, 2437, 1755, 2221, 
       2374, 1756, 2326, 1895, 1757, 2327, 1896, 1758, 2281, 2328, 2032, 1897,
        1956, 428, 2329, 2010, 484, 1957, 2438, 1943, 2188, 860, 2031}], 
      Line3DBox[{1760, 2141, 2142, 2222, 2481, 1759, 2198, 2199, 2223, 2492, 
       1761, 2224, 2375, 1762, 2330, 1898, 1763, 2306, 2331, 1899, 2206, 2493,
        1958, 2102, 2165, 2175, 2166, 2001, 2301, 2485, 1959, 2103, 2167, 
       2168, 2002, 2448, 2169, 1960, 2104, 2225, 2439, 1764, 2226, 2376, 1765,
        2176, 2177, 2227, 2487, 1766, 1961, 2034, 2461, 1900, 1962, 2140, 
       2274, 2332, 2033, 1901, 2003, 2449, 1963, 1902, 2194, 2490, 2187, 1903,
        2204}], 
      Line3DBox[{435, 229, 1596, 695, 694, 2479, 1767, 2228, 2377, 1768, 2229,
        2378, 1769, 2494, 892, 893, 1714, 270, 811, 352, 1356, 271, 353, 1357,
        272, 1539, 620, 396, 2457, 1770, 273, 1281, 274, 838, 230, 1358, 354, 
       1359, 275, 1771, 2333, 1904, 1772, 2334, 1905, 1773}], 
      Line3DBox[CompressedData["
1:eJwVzktKQgEYhuE/AqtVZMvoZja2EtqAEDRNyB1YQQaCVoMukE0CB3a1VGgp
7cCBdvHWrKfBy/t933/O4Szs5Lf3piIii0kiojATkZyLGMv78rw8krPcmY0Y
yl3e0ne55ZmBbcw3tmse4gpl9xGv8y867kf8ZjvnV77jM/z4xrt705bSX3iN
67Y0r+LZtsRPfGKfyCtYxiEe7Yv8wCX3W/nbd2u8qU/jS9/gtu1TzsgtuS8f
y/feLeoNrvIBem6nbgNbRb/kD1wg9//v/AdW2DSy
       "]], 
      Line3DBox[{1794, 1908, 2337, 1793, 2390, 2236, 1792, 2389, 2235, 1791, 
       2388, 2234, 1790, 2283, 2387, 2150, 1976, 1789, 2451, 452, 2041, 451, 
       644, 1564, 643, 2116, 641, 1561, 642, 639, 2115, 636, 1557, 638, 637, 
       2114, 2495, 900, 1788, 2209, 2386, 2308, 1787, 2385, 2233, 1786, 2304, 
       2384, 2200, 1785, 2443, 1975, 2061, 488, 633, 1552, 447, 2012, 728, 
       2040}], Line3DBox[{106, 409, 859, 999, 107, 410, 1000, 108, 821, 1001, 
       109, 1002, 110, 1003, 111, 1430, 461, 112, 1427, 458, 113, 1429, 460, 
       1004, 114, 1005, 115, 1006, 116, 1007, 117, 1008, 118, 1009, 119, 1010,
        120}], Line3DBox[{1808, 2399, 2242, 1807, 2398, 2241, 1806, 2397, 
       2240, 1805, 2396, 2239, 1804, 2395, 2238, 1803, 2284, 2394, 2151, 1977,
        1802, 2452, 2144, 2145, 2048, 1948, 2432, 1801, 2046, 2133, 2047, 
       2014, 2045, 2459, 2289, 1800, 2118, 2119, 2117, 2310, 2474, 2211, 1799,
        2210, 2393, 2309, 1798, 2392, 2237, 1797, 2298, 2391, 2201, 2203, 
       2202, 1796, 2303, 2489, 2183, 2042, 2044, 2043, 1795, 2473, 2063, 2132,
        2064, 2013, 2153, 2152, 2062}], 
      Line3DBox[{1809, 2008, 2243, 2458, 2009, 1978, 2120, 2170, 2475, 1909, 
       2171, 2092, 2093, 2065, 2465, 1910, 1810, 2338, 1911, 1811, 2285, 2339,
        1912, 1979, 2049, 2463, 2290, 2015, 2094, 2135, 1913, 2134, 2295, 
       2471, 2095, 2016, 2136, 1914, 2004, 2453, 1980, 2244, 2444, 1812, 2340,
        1915, 1813, 2341, 1916, 1814, 2342, 1917, 1815, 2343, 1918, 1816, 
       2344, 1919, 1817, 2345, 1920, 1818}], 
      Line3DBox[{1819, 2154, 2155, 2245, 2482, 2197, 912, 2121, 798, 1661, 
       799, 501, 2051, 2464, 1921, 1820, 2346, 1922, 1821, 2286, 2347, 2122, 
       1923, 2005, 503, 2348, 2054, 504, 1981, 2445, 752, 868, 867, 2006, 
       2454, 1982, 2246, 2446, 1822, 2247, 2400, 1823, 2349, 1924, 1824, 2350,
        1925, 1825, 2351, 1926, 1826, 2352, 1927, 1827, 2353, 1928, 1828}], 
      Line3DBox[{1829, 2066, 1983, 2017, 2067, 2068, 2466, 1984, 2050, 1949, 
       2018, 2069, 2433, 2291, 1985, 2052, 1950, 2020, 2299, 2434, 2137, 2019,
        1986, 2123, 2476, 1929, 1987, 2053, 2275, 2354, 2021, 2070, 2182, 
       2071, 2190, 1988, 2156, 2072, 2146, 2467, 1951, 2186, 2184, 2185, 2007,
        2455, 1989, 2214, 1930, 1830, 2355, 2248, 2401, 1831, 2249, 2402, 
       1832, 2250, 2403, 1833, 2356, 1931, 1834, 2357, 1932, 1835, 2358, 1933,
        1836, 2359, 1934, 1837}], 
      Line3DBox[{513, 314, 1375, 370, 315, 1376, 371, 316, 1377, 372, 317, 
       1378, 373, 1379, 318, 374, 852, 1688, 319, 905, 1729, 904, 1838, 2360, 
       2251, 2404, 1839, 2252, 2405, 1840, 2253, 2406, 1841, 2254, 2407, 1842,
        2361, 1935, 1843, 2362, 1936, 1844, 2363, 1937, 1845}], 
      Line3DBox[{1855, 1940, 2367, 1854, 1939, 2366, 1853, 2413, 2259, 1852, 
       2412, 2258, 1851, 2411, 2257, 1850, 2410, 2256, 1849, 2409, 2255, 2365,
        1848, 1938, 2364, 1847, 1997, 2172, 1996, 2447, 1846, 2147, 1953, 
       2055, 2477, 2277, 2148, 2130, 2131, 2129, 2191, 2276, 2408, 2126, 1952,
        2127, 2128, 2077, 2469, 1995, 2024, 1994, 2076, 2125, 2292, 2468, 
       1993, 2023, 1992, 2075, 2124, 2456, 2074, 1991, 2022, 1990, 2157, 
       2073}], Line3DBox[{1865, 1942, 2370, 1864, 2421, 2265, 1863, 2420, 
       2264, 1862, 2419, 2263, 1861, 2418, 2262, 1860, 2417, 2261, 1859, 2416,
        2260, 2369, 1858, 1941, 2368, 1857, 2212, 2215, 2496, 919, 1856, 915, 
       2056, 2478, 685, 686, 543, 2415, 2027, 542, 684, 540, 2414, 2026, 539, 
       683, 1590, 480, 2059, 479, 682, 1589, 476, 2025, 737, 2057}], 
      Line3DBox[{1879, 2000, 2431, 2288, 1878, 2430, 2273, 1877, 2429, 2272, 
       1876, 2428, 2271, 1875, 2427, 2270, 1874, 2426, 2269, 1873, 2425, 2268,
        2371, 1872, 2424, 2267, 1871, 2423, 2266, 1870, 1999, 2173, 2486, 
       2287, 1869, 2090, 2139, 2091, 2422, 2029, 2089, 2088, 1868, 2087, 2138,
        2480, 2294, 2028, 2086, 2085, 1867, 2293, 2470, 2084, 2060, 2083, 
       2082, 1866, 2460, 2080, 2081, 2058, 2079, 2078, 1998}]}, {
      Line3DBox[CompressedData["
1:eJwVyz0vAwAUheHbKELiB3TToZUyEINIWEikc02aLkhEGBh08pXYSI0WFiHS
gUFJSpogBpMuNgZfi6Q/wA/wGN6c8+bcm55fnV5JREQRh20R+WREZ1fEkT4l
C7ymVzsi7niRN/gYv+Rz/Ikn2yN2+RJ/4d28wtf4O2/oFT/7mMAktm0tW6+e
xoyfdbmBPduFn197hvchi5KbTbmFAzcJ5PQB9P/f2Xf8XclrHNt7cKMP2m/l
LF7xhnNbCvf6sP1BnvlfkB/4RN2ewYk+4uZULuIL33i0DaHq75mPumnKZZTx
g6Z9HH9Fay9d
       "]], 
      Line3DBox[{923, 1096, 2312, 924, 1106, 2322, 945, 2375, 1114, 954, 2377,
        1122, 965, 2379, 1130, 977, 2384, 1703, 1140, 989, 2391, 1600, 1151, 
       1001, 1302, 1162, 2465, 1013, 1309, 1173, 2464, 1026, 1247, 1405, 2434,
        1604, 1605, 1038, 1464, 1325, 1377, 1497, 1498, 1606, 1471, 1331, 
       2469, 1332, 1472, 1473, 1607, 1478, 2414, 1336, 1384, 1505, 1506, 1609,
        2480, 1484, 1340, 1387, 1397, 1486, 1398, 1593}], 
      Line3DBox[{925, 1097, 2313, 926, 1107, 2323, 946, 1115, 2330, 955, 2378,
        1123, 966, 2380, 1131, 978, 2385, 1141, 990, 2392, 1152, 1002, 1163, 
       2338, 1014, 1174, 2346, 1027, 1320, 1321, 1184, 2476, 1039, 1326, 1378,
        1195, 1050, 1587, 2408, 1252, 1684, 1474, 1475, 1608, 1479, 2415, 
       1337, 1385, 1507, 1508, 1610, 1485, 2422, 1341, 1388, 1399, 1487, 1400,
        1594}], 
      Line3DBox[{927, 1098, 2314, 928, 1704, 1705, 2324, 947, 1708, 1709, 
       2331, 956, 1712, 2494, 1713, 967, 2381, 1716, 1717, 979, 2386, 1720, 
       1721, 991, 2393, 1724, 1725, 1003, 1303, 1304, 2339, 1015, 1310, 1311, 
       2347, 1580, 1690, 1691, 1248, 1322, 1249, 2354, 1434, 1406, 1465, 1327,
        1379, 1328, 1466, 1437, 1588, 2477, 1253, 1618, 1254, 1680, 1476, 
       1438, 1591, 2478, 1338, 1689, 1339, 1665, 1664, 2486, 1342, 1389, 1343,
        1344}], Line3DBox[CompressedData["
1:eJwVzD1LAmAYheEn/ACxxaChJXIvqKC2fkS1NjU45tgg1NyQbhUUiLQpGSQY
FGlUQ0J/IYdaajEabAiUroab+5zzfuS3ixs7ExGxiVoi4iMZ8YlsRk5FNNIR
A73OXzxt/7Zf6kO9yXe2H/nX3tJH8hWPOcnXSDk7cK8tp+Uc36Jry+o38iTP
ct3W5Zze4Sk+wqFcxqt/Z/Q+H3PV/RJfYA5byGPe3uRTLHj35v46n9vf5Yrc
cnaGRXmJT3iZ93kPK3LF/QKv4tnWw73tgZ/w+P/Wf7u2F17DH4QfMTM=
       "]], Line3DBox[CompressedData["
1:eJwVzT0rhWEYB/BLnIPB4jAZ5CUpJrOkJJ2yeE9xhocBwzkGJPkEisKAbBYD
m5idAZOJz6C8TF4mL/k9w6//ff+v53rulqQ0WqyIiISTyohiJuKJEoPMZiMK
zHBRG/Gse+GNV4aYM5sn4d39gy8+yXNpb9FsiQW+dT/88ctw+p5+mSIZstRQ
zZb9Ed+sOq+xQj05GmmgznyHMedtucGxvV3ZrNuTOc4Zdz+T+7Q6t9PGtPuB
fJQD8kGe+semPKRTd5TuMJW+YzYpJ+jSFdJ9Xbe80d1yR5lrmqoiruj1TYcs
0+/cI9flvezjHwjtMqQ=
       "]], Line3DBox[CompressedData["
1:eJwVzz1LgmEUBuBjaWA1NIRZuEREP8ClRSSCCEEKqUWIPqAa+jQHa+snNKR7
tDQ0Bu39AIdmdyerKWuq6x0u7nPO85yH950/uKidpyJii8fRiMtMRJ8Ga+yN
Rezzko3YlQOzD774ZJ0j82MO+dYP+eWHCqfmd/bP5Al/ZiFHSFHVX8kmDbKM
M8mTvQlZc+da3tAixwyz5Nl23pYdyrzr7+mlI269Ma3eNN+grZ6jnuw4KyTf
6t8X5A4ds0WZtvtAUT8ln1lO7stXSuol+caKuii7rKrL8h9oECfV
       "]], 
      Line3DBox[{933, 1100, 2316, 934, 2374, 1109, 949, 2376, 1117, 958, 1394,
        2457, 1125, 969, 1549, 1551, 1550, 2488, 1288, 1445, 1133, 981, 1423, 
       2451, 1424, 1366, 1699, 1143, 993, 2394, 1301, 1154, 1005, 1165, 2340, 
       1018, 2400, 1176, 1030, 2402, 1187, 1042, 2405, 1198, 1054, 2410, 1209,
        1065, 2417, 1220, 1077, 2426, 1232, 1089}], 
      Line3DBox[{935, 1101, 2317, 936, 1110, 2326, 950, 1669, 2487, 1118, 959,
        1670, 1280, 1281, 1443, 1444, 970, 1418, 1243, 2462, 1363, 1696, 1698,
        1697, 982, 2387, 1295, 1144, 994, 2395, 1155, 1006, 1166, 2341, 1019, 
       1177, 2349, 1031, 2403, 1188, 1043, 2406, 1199, 1055, 2411, 1210, 1066,
        2418, 1221, 1078, 2427, 1233, 1090}], 
      Line3DBox[{937, 1102, 2318, 938, 1111, 2327, 951, 1272, 1273, 1119, 
       2461, 960, 1415, 1242, 1358, 1693, 1695, 1694, 971, 2382, 1289, 1134, 
       983, 2388, 1145, 995, 2396, 1156, 1007, 1167, 2342, 1020, 1178, 2350, 
       1032, 1189, 2356, 1044, 2407, 1200, 1056, 2412, 1211, 1067, 2419, 1222,
        1079, 2428, 1234, 1091}], 
      Line3DBox[{939, 1103, 2319, 940, 1265, 1266, 2328, 1413, 1240, 1274, 
       1241, 2332, 1611, 1414, 1282, 1359, 1283, 972, 2383, 1135, 984, 2389, 
       1146, 996, 2397, 1157, 1008, 1168, 2343, 1021, 1179, 2351, 1033, 1190, 
       2357, 1045, 1201, 2361, 1057, 2413, 1212, 1068, 2420, 1223, 1080, 2429,
        1235, 1092}], 
      Line3DBox[{941, 1666, 1667, 2320, 1668, 1237, 1267, 1238, 2329, 1409, 
       1401, 1275, 1355, 2449, 1276, 961, 1126, 2333, 973, 1136, 2335, 985, 
       2390, 1147, 997, 2398, 1158, 1009, 1169, 2344, 1022, 1180, 2352, 1034, 
       1191, 2358, 1046, 1202, 2362, 1058, 1213, 2366, 1069, 2421, 1224, 1081,
        2430, 1236, 1093}], 
      Line3DBox[{942, 1260, 1261, 2321, 1410, 1411, 1412, 1268, 2438, 1239, 
       1683, 1681, 1692, 2490, 1682, 962, 1127, 2334, 974, 1137, 2336, 986, 
       1148, 2337, 998, 2399, 1159, 1010, 1170, 2345, 1023, 1181, 2353, 1035, 
       1192, 2359, 1047, 1203, 2363, 1059, 1214, 2367, 1070, 1225, 2370, 1082,
        2431, 1345, 1346, 1347}], Line3DBox[CompressedData["
1:eJwVzr8rxHEcx/G3HKUMRotB6UYyyODHJJNBMhwKSbqJYhZl8D1MLJeElPha
Dp1SlEEKCwYWt98f4B/w+A7P3q9fn2/fzoWVieWGiJjFQC7iHZtNERt4w1FL
xKvbI3/CTHPEC9+PU/TxJ26Xrooa/YtFPKLsfa/NA92uT/FDf2MOd+jWV91W
3TGu6TPvKm4e0/ophO4At7pzvoC/xohEdihbs92RlVCXr8uvZCnacIkOXWp7
kf2nzarNF/2JSexlW5td90Nf1A/zS/S4rIR97xP3WTavH9IPIsE27uUF+Y3d
GF/J3vIjfJkepbfoepb5zj9dWzR1
       "]], 
      Line3DBox[{1088, 1231, 2425, 1076, 1219, 2416, 1064, 1208, 2409, 1053, 
       1197, 2404, 1041, 1186, 2401, 1029, 1175, 2446, 1316, 1017, 1164, 2444,
        1307, 1004, 1153, 1367, 1614, 2452, 1613, 992, 1142, 1446, 1294, 1563,
        1564, 1562, 980, 1132, 1700, 2491, 1287, 968, 1124, 1539, 1279, 957, 
       1116, 2439, 1271, 948, 1108, 2437, 1264, 932, 1099, 2436, 1258, 
       1259}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJzt3E9Ik2EcwPGXOphEgTUqChIl6LDWgiID09khOkSEw12iNiuCOi2VnTJT
tjJWLkMlg9IosJOsg71YURODNgykwzxFiaDLhLlqBJOIddret5cGBvvz7N33
vQw+Dzz82Pvu+b2/PX+qzjmtF9ZIkjRRLklrpfTV+ffnNwuO4ziO4ziO4ziO
4ziO4zheWC+rSYwMJGOBlK+MnR2KDXuEixPHcRzHcdxU9/X4fDKWbt++xXNF
3uDKWv8VZt/oY1X/T4L3zeVWt3DfA15cvrFj5nqb6n07dPnhq2Nj3cLFieM4
juM4juM4/r9et8vofaSqo3u+nzrT7KWOxkvDKx3VTr+q3t/6zHjiXrxLuDhx
HMdxHMdxHMdxHMdxHMdF87ctSwNdqvmFbXda33jbbwgXJ47jOI7jOI7jOI6X
kGsuHMdxHMdxHMdxHMdxHMdxHMez4Rf9B4+EjOF0e1NDVe9V+7JwceI4juM4
juM4juO4yC73P1/nO6nU005T/eKsJyxcnHhxeZN8tD/ZEQmkZHSqwrd+MpK1
/scN7gO1pnC6/4+nK39a+F8Ix0vKBxsHH9TvVfKVece1TwYdjwO5Hldxffit
Tdbz8l3luZgdPzzU7uc5wfPrLTdnfuzpVsar2kPV9viLSEYvVJzZcn53OI7j
OI7juNr1+t6L43py1p3iOI7j+OqdvInjOI7ryUNLbVOWhuVASuz7Nj91fWad
JI7jOI7jOI7jOI7jOI7jmd2vWQ/2u4b1YKXgjknX7Wa3ct/nhhMj8mvuO746
N2j2gUbZB1rS/kuzD3qnzvdBi+ZBTR5fII/jOI7jeM79Q9QRf9mp5Nu+xPRu
20QkoxcqTry4vExTZ61QZ+E4juP/8HcLnuiX4Hy6vafvfWOvbVG4OHEcx3Ec
x3Ecx3Ecx3E8n75fM88yXeB5Fs5pxPPplzTnJtk4Nykn/gcc9hW8
    "]],
  Axes->True,
  BoxRatios->{1, 1, 0.4},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0.015, 0.035}, {0, 330}, {-0.0011974078306207566`, 
    0.9832508179228275}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.50279799648743*^9, 3.503030991609375*^9, 
  3.5030372372372255`*^9, 3.5030383582848816`*^9, 3.503059902033987*^9, 
  3.529160393610769*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Simulate dependence on connectivity ", "Subtitle",
 CellChangeTimes->{{3.502630077505207*^9, 3.5026301077224092`*^9}, {
   3.502631477742852*^9, 3.502631477742852*^9}, 3.502631593443015*^9, {
   3.502795833640537*^9, 3.5027958346083474`*^9}, {3.5027968362042713`*^9, 
   3.5027968378223314`*^9}, {3.503030977734375*^9, 3.50303099265625*^9}}],

Cell[BoxData["InitStandardParameters"], "Input"],

Cell[CellGroupData[{

Cell[BoxData["cBar"], "Input",
 CellChangeTimes->{{3.5030312729716797`*^9, 3.5030312736904297`*^9}}],

Cell[BoxData["0.05`"], "Output",
 CellChangeTimes->{3.5030312795654297`*^9, 3.5030372372994986`*^9, 
  3.5030399969248605`*^9, 3.503041952137886*^9, 3.529160393631771*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c2Bar", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"0.0025", " ", "=", " ", 
    RowBox[{
     RowBox[{"homogenous", " ", "case"}], " ", "-", " ", 
     RowBox[{"p", ".", " ", "183"}]}]}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.5030312810341797`*^9, 3.5030312827060547`*^9}, {
  3.5030315735654297`*^9, 3.5030316284248047`*^9}}],

Cell[BoxData["0.021`"], "Output",
 CellChangeTimes->{3.5030312876904297`*^9, 3.503037237330635*^9, 
  3.503039999787958*^9, 3.503041952186716*^9, 3.529160393650773*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"simulate", "[", 
   RowBox[{"myPar1_", ",", " ", "myPar2_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cBar", " ", "=", " ", "myPar1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"c2Bar", " ", "=", " ", "myPar2"}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"result", " ", "=", " ", 
      RowBox[{"FoldList", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"update", "[", "#1", "]"}], "&"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x0", ",", " ", "y0", ",", " ", "x0", ",", " ", "y0"}], 
         "}"}], ",", " ", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", " ", 
          RowBox[{"{", "8", "}"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"res", " ", "=", " ", 
      RowBox[{"Last", "[", 
       RowBox[{"Last", "[", 
        RowBox[{"analyze", " ", "/@", " ", "result"}], "]"}], "]"}]}], ";", 
     " ", 
     RowBox[{"(*", " ", 
      RowBox[{"return", " ", "overlap", " ", "with", " ", "memory"}], " ", 
      "*)"}], " ", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"NumberQ", "[", "res", " ", "]"}], ",", " ", "res", ",", " ", 
       "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.502795860343711*^9, 3.5027959838269677`*^9}, {
  3.5027968502355995`*^9, 3.502796859163739*^9}, {3.5027968909829917`*^9, 
  3.502796993883632*^9}, {3.5027976619219294`*^9, 3.502797741068231*^9}, {
  3.502797822473177*^9, 3.502797828856558*^9}, {3.5030311980810547`*^9, 
  3.5030312257998047`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simulate", "[", 
  RowBox[{"0.05", ",", " ", "0.021"}], "]"}]], "Input",
 CellChangeTimes->{{3.5030383583473577`*^9, 3.50303836581324*^9}}],

Cell[BoxData["0.9832181288574734`"], "Output",
 CellChangeTimes->{3.503038367359521*^9, 3.5030400043677435`*^9, 
  3.503041959320779*^9, 3.503059952446762*^9, 3.5291603936807756`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"simulate", "[", 
    RowBox[{"x", ",", " ", "0.021"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}], ",", " ", 
   RowBox[{"PlotPoints", " ", "\[Rule]", " ", "10"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5030398564035807`*^9, 3.503039900909521*^9}, {
   3.5030402453552485`*^9, 3.503040265998459*^9}, 3.503040331147609*^9, {
   3.5030528608064117`*^9, 3.503052877212242*^9}, {3.503059509937671*^9, 
   3.5030595477020874`*^9}, {3.503059965101716*^9, 3.503059965414184*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5030599601334753`*^9, 3.5030599659453797`*^9}, 
   3.529160393702778*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5030599601334753`*^9, 3.5030599659453797`*^9}, 
   3.5291603937137794`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5030599601334753`*^9, 3.5030599659453797`*^9}, 
   3.529160393714779*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Power :: \
infy\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5030599601334753`*^9, 3.5030599659453797`*^9}, 
   3.52916039372078*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5030599601334753`*^9, 3.5030599659453797`*^9}, 
   3.5291604125656643`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5030599601334753`*^9, 3.5030599659453797`*^9}, 
   3.5291604125686646`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF13k0ld37P3BDIqkIZS4eKYqEEOndIBEKiVJUZAjpSYXKo5LQrNmQoQyZ
juGcYziSk6JkiDI3IDrHfE4yfTL19Vvrt+z7n3u91t7Xtd973Xv/cSs6n7Jx
5ePh4XHi5eH5f++/q5RP2xTGgef/P31v3UPGmogbjmU8iR4lTo3VKunUip+z
leS2hWcoxNZ82Z/NrBPm/HyoytvT5Nmcd9YJPMvQTJzz73yde7u2ESfEulzp
siae8iw9JnuGmCrwn9LNPGIFw5FET4OkOY8ld6aoGifPOemW2JNyW2LrM1vD
jrkSZ26Nc48KJXb+enDNgg/EH0U/pfVYpsz5xUVm5gv7F3NWFlFqUXUnfv40
hD/Tj/jpKzOHnEfEEX/rBRn1xIsidLUNu4hvrIxyevWb+No2p7xSsdQ5X7ja
41y5l3hc3PyOxRHis0kUxkcfYp9yX9H628T9+xsN98cSe7D13JsziV0Ep199
rSLueHKk1/ErsdOaNxIdfcRfC5W3Ok8QHzAL8/q5IG3Oja29j92kiW08Ld70
rCGuncga9NQntrgpJj24Kw1/JwS921kD+CB71viUfRqCr/IHS+txYZLZdGrI
LQ01G6eTdR25KNu8KeaMXxqM/W5XdZzgYltNzLvRa8QljjND/o/ScLUt/Ps1
Py42c47KTyQRM4LemgbSiXWXqJydeUtMiw+Pv1xPrKnZX8nXlQb7FuHOVVe5
oLy2HAv5TaxmnaMoyJeOtTX2XpWz85V9zwUsVCRe8cCgdslW4qf/xE7c25uO
Tk9zZc/Zehn631USR4ifGDtbP/ZJxzT9/SdFfy4kGssCpYKI77muTo2+Tbx4
7Hq9XCzxzdCBmbhMYqHle9UUi9OxwOtZVbcnF7+jXa5p6WdA5JizvPkRLvT2
vql120UcyK8oE2NHXFpw6XitK/F877Ys/nMZUEjPKsY+LsxXGv3RC8mA0bg9
t392PKIhZof3A+Km8InbCc8zsCLTKvv37HxZo4MtDbnER4cKlBaUEqckLztp
VJeB0lxPSUFTLvoPnis43U6subiBN4WTgZELHwRVN3Nx7o2WxZdp4iK/e48X
L8qc81+1Xx3b5TJx60eD9wFNLozb96z1X0t8/QHlXIZBJly36K99pMzFx10i
r9vNiMWnPIUlDmYC136otktxcSDng62pB3Hs8TXxgf6ZSEjO3xC/iotOqbDe
nNBMNJ8MNp+Q5mJ1DUub9YjY+4pxkHRyJrp5l7o5L+Yid2NihSU9ExKG2080
83Ex1ssrHvyW2DDuqGP+50zsvKRhdHCcg8s2zBd9P4jL5yv8VhjKhO7Q+sru
fg6EXwZu3sdDmbPVqa+hYUso6E389r/gDg4e/WPw6aUCBUc/zaeqNXLwpTlS
9pc68cpb467KRhRckihua/vAgetWu5wDFhQsSDH2iC/hIH2EPnHrEDE3VXxn
qScFcU+V9L1pHOg4+t4dPU9BzXox/Z2pHJwX+9Sqep2C+TP8NmqxHJSUr1d2
iiTmv3DH5/4LCjz3q/wre58DU43Bwnf5FFy79CVQKoyD253m/JPlFJQsYTgr
BnLw+XG65fpGCoJ1IkR0T3Ow3HxBpMtPCjQXurjauXFw+K9755Nh4me0d+uq
+bIQMuZxIPgQB2z3Vf48S7NQMi7yiWHFwVq5kFIdxSzoCg8WTe3k4N+6zoUn
NLMQeqWV19yQg7yQbXaxyAK/Z8O9JE0OJvQTEj7tycJH0+XTYtocYHCmT8Ap
C6/6thSGrOEg5JnjRoOTWeCVnvDjU+BgibBs5fObWZC1+klVWMCBbcl5iebo
LEivdxF+NTOIaN8Wp4XpWRBQlZBxGxlEu4peGhizeVRjpFraB6H89dHwmYos
mFmrdCU0DkI/U1R+p0A2rBW7eNckDkI3YMryrWQ2TtqedNGIGoS2cU/QNpVs
cK4mVm+5OwhN0YZspm425kWpnPnv4iA0vjE7jHZlw9XC6W7G6dn+IqeSdK9n
488uV8ObeoNQanFopEfN1lfqTPopD2JFksl87fRsCKkXfw0TG4Tcv1p6uUXZ
sCh+uVRBaBAymxU81ldloybQtMx1dABC+WzJh/NzELVcZckf+gAEnx7WqF+c
g8eL9Fe3Px/A/ODPJkuX56BJOX1Hd8QA+PeU+EeszkGs0OauQycHMMN61HrL
NAeamQ/vV60ewIjkzthrN3LwRq+6ATf6MTxZlFd2PwetXynG2y/04/cPzY/8
MTl4f3M+47xzP7gUub9XMnLg/Kcu39GwH307R44GVeegmGftZtmOPnScS1T2
X5yL4FsnvByk+tB+SNoof1kulne17Rjn70Pbtrv7RxVyIRat9cK1sxdfF10M
PbM+F6oz7GgGpRdNyTY9p6xy0aVInUwx7EV1I2+mx/1cjAg/FZsx7AE1QqxT
JjoXpWyZLm/ZHkSZK0rVPJvtd1bPznGyG26lW0M25OYiYPvBobzibvBQLh2e
qM2FgUOQ5Dnd7tnzefd+ZnMuTFWPuotLdqNGKb7CqT0Xk9dH3mOEjejIEp23
nFz0hE2aaNPZ2BgyLXJrERX3po7LKxqwIYdFO7ZIUrGPwptSKccG34Tc+V9y
VGQfrm1l/2Whl74u+7kyFclivxp8u1ioO7WZZbuOim6HyM1uVSzkq1nICupQ
MSYdy59KYyGWdciaYUiF1+O0q7pPWQhJ8Arz2kFFiPyKAnY4C56HLr6SN6eC
kW2jUXmOBatlN4drbag41VwckOTGgt6naNVgByoann6QdDzEgsKt9CM6zlS0
Ne7j69zHwrxdRY/YJ6gwFapk+liw0MdbWRV5mvhT8ew9PE/mF/r36k1fJv3i
tP6czA6n4vzNC856x2bzDQolHYug4r1MVvDiABa8UqW+iEdSoUkz8xl9zIKN
yxrRd/FU/MiYYu4rYUFfQd8k4AUVBSvrWpNZLKxo3RWolk3FBTuHincr2Jj/
0J76LZ+K1+pLhR8fYmNgj3vPnRIqOFpWBgVxbNQv8FfY9o6K7fVrtUKH2Sgq
C7UdrqHC/th/1IOW3Ui49PhGciMVsUt7/pSmdSPMIOW1/Xcq7ha+8zu4qAc+
o3ljC1hUjFTaHl3l2gPbnPJ1xQNUPA52Twiu6oGhV6OzzwgVRbWh99RW9kJJ
hRW5coqK8az/eN569ELox8jHz/w0XOrOfjH+tBecmHkC1xbS8A3hJn6fetFo
J2GoJ07DFZ4ktX+ae1Espny6V4YGo2UJq7Nae/G8WvtFjBINU4f/ytfm9CI8
bMd3SzUaHN2rex5e6cWp7fvEebRo6I4uXRiv2Qu7aWcz6iYaYgbW1T1r7MHm
Qt9Lx7fRcHHTIZqSSw+UzgTnLTOjQUSjw+MmtxsLNO73V1jRsJV6JT37ZDd+
9TxTvHiABuWFAjbCg2w0Jebaqx+lYYFn56j6STZeOZXebnen4Sw7M9JvioUk
6U9v752iIWV3XvnCeBZuNHT82eFPg+fgx/HrNiycvvtr/VgQDSN24YxL6izo
NJkctAyjgWecR6BLhoUxudjgpLs0mOZv1IIOCwyX4YzJJzTczopOtDrKQmC6
WaNNAg2aZmF25+gsYCh+Ji2VBm+TotcPZ1jg0x9bzZtLA+XOsxNFm9koD7Kw
PsCgITCc9eVqIBvh5c8vZJfSoLPhc5BSBBvmIn8S51fSEGGn+EA8ho3F+/bW
OH6mIfr3neM9IWzURSWP0b/QcNXpoe5eEzYedEyuEOmiwfD64gq/NhbsVtuY
ufTT0Gy7wV93DwtSPqm+RcM0BHx+Jmq07ye+0mdixKZoCE77fK5sphNxk7bl
HvPo2LT2z44avx84tj2DwxShY5mnbUBvZzuUr/NKLZekY6IvQ3VP/Xewa+23
+cjTobDexWiv9nekLcvyLF9Fh0V93k4L2XZ4O857KKdBxxJVy9SDcp3QSHJ4
dUaXDrNun5wJHxaG+nLYlVvosN/Y6puXwgJ9g6Co0i46oo9arhqgdMA/wHHT
+b10lFY3v9iV0AIDJs25zp6On1XVwtpyjZgSEL61+igdN2prNlk6NIJpcTQv
yIMOVePmDvFvzQh+kN/W+C8dhuj6+EfkC4y/iAipn6ejsPTu/kDvVggqumwI
uUJHqP0yBZ8jTah0Zzh8vU6HSG5kQzFPw+x3XRKidZ+O+Wu+fXN1aoTVqCvl
ejQdw7E8U87v27B0c3FTx3M6VFKsJB4/+YnG4KU8+hl0+P5d1FK0ug2RHzxU
79LoeCKZnyUp9x0Ookwb9ks6ElPLXkj8+xPy9pKBRmV0HLnxoAyObeiI9Up+
WE3HzbMbdkceaETiz9KP/Q10nBF24BvI7ITbWqn/bf9On/vfUfX1UYxmEQ8U
lu0eGiTO/itz1nSM2NfkdGz8DPF4vfwvyyV5cy6SOSudvJw48Fjl9qkVxHxc
v0fpmsSLhesMBG2IlbcGX3v9kLgq0q7k11Ni3yG18ZXJxMzn9R5X8ogdBFZZ
bG8ijqh8v7RseT75n7ddlPA+mjiR8qNl/Dnx7vn5YmsyiJ8UOF0Nf0msJZPj
ZvaNuNU3JP78T+LLVQda0gaIVZTVxb6MENcE8u4Wns7H0O+WJJUOEebZxsZg
A4ECCNptvhPeMFkio5H+0nNRAap9GyUFK4xRGho0Ei1ZAJ9XL11vFu9kerTb
qFfJF+DJpSVnpLyUmUv0V7tNriqY65cfMRm3VqNgbr3DvbXNh3SJ+bcnid7a
QpweHWBWbEJsNWwRPLCH9Bs3V3wpZ08clzQ6bHGkAEKUT6YiXhLMndMf1v3n
XgD3sAt2tbzSzIH9ca6UUwU4HDCwZX2HHPN+lm/cd/8CiH/mGTqsvJK5SXBX
86LLBZi2z0quyFJkdhyRFd0SPrs/0SalIOl/mKGFXFOfCDKuLlZ2JS6S1Dec
iCz6mEDWu1V7h5WbSvIYb7wm+iiHeCr6omFAIclP4/F1O/Sa2NPN496WCrJ/
pWqnYsU64i8b9nfPayG+/8R8aU87qd89vc2oqpuYz0XfI4tL8hVVaDy4N16A
r19a+preqjN9NVaVnP1bgMH97RK1QiZMtYeyvfaChZiR31qz9ONudP4RkzBc
Uog6p0Ff0yB9RB8RgsLyQpx4NljfdVoJ1uUzJ3hXFCKirKN4VZEhU2jt6MOf
KoVz+V5H9DPfaxAHjP3oS9cl1jzcInlnC3FP6cetp02IE1aXe9nuIRYdzi2V
cSKuOJA6MO1KfLkkbvmPk8Tc6zdPvviP+ONKV2mdWOLQ0EPGy5OJtwxYn5rI
JKYUbCl/XUx8XH7jr8QyYrmra2XDqokbehRNPBsK4SLg/efFoBTz1h6p05bf
CvF9csPodJQhjOmLn2r+LAQnal+Xg4k1pqQF3osPFOKti2JVmbsWk35pcmhs
uHDufHmzhuS+TBbOnV9l855dr/gZc/ftW06bb8JCBgb2en35ObKR+XBZY+xV
cQb2PFos8EPAimkeWFXhJsuAtmEdj7+1KPg6S4fN/mFg7wql/90S10TRrkIF
9bWzFjxJ6d+hDV9KlpmoNgPLtnpXa1doQU08+eywAQOBd8aMbK/ooTMgJr5p
OwPNlz3rQherIbrtXiVjNwP3da+0WhSoMm2Mw0ef2jAwz9HcaKJCE8LpQSsv
OzDwLnV/QI2XCvPNknPmLs4M7PdzPP82Sp154ZyXn4nnbF7zE8rWl1SYWl+P
PVP1ZcDzzZrDKSFr0Lv1QLXIBQbSzuiXBsQsRULKnnHuFQbu8hmEhbF1cEBk
p1L9dQakmMfHAirWQdTX0DL/HgMtjMkm4YebUNG8ISAqioEbMhXK/A3a+D9Z
+H5Z
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0.03, 0},
  PlotRange->{{0.03, 0.1}, {-0.0009779641588719304, 0.9847918232802295}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.503040236160525*^9, 3.5030402705733614`*^9}, 
   3.5030403433147993`*^9, {3.503059507593996*^9, 3.503059544717808*^9}, {
   3.5030599617895555`*^9, 3.5030599683982534`*^9}, 3.529160567978204*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"simulate", "[", 
       RowBox[{"x", ",", " ", "0.00001"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}], ",", " ", 
      RowBox[{"PlotPoints", " ", "\[Rule]", " ", "10"}]}], "]"}], ",", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"simulate", "[", 
       RowBox[{"x", ",", " ", "0.0025"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "  ", "0.0025", ",", " ", "0.1"}], "}"}], ",", " ", 
      RowBox[{"PlotPoints", " ", "\[Rule]", " ", "10"}]}], "]"}], ",", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"simulate", "[", 
       RowBox[{"x", ",", " ", "0.021"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}], ",", " ", 
      RowBox[{"PlotPoints", " ", "\[Rule]", " ", "10"}]}], "]"}]}], "}"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.5030398564035807`*^9, 3.503039900909521*^9}, {
   3.5030402453552485`*^9, 3.503040265998459*^9}, 3.503040331147609*^9, {
   3.5030412299874754`*^9, 3.503041230011898*^9}, {3.5030415438856115`*^9, 
   3.5030415820130496`*^9}, {3.5030420255479317`*^9, 3.503042032096034*^9}, {
   3.503045431658989*^9, 3.5030454540094566`*^9}, {3.503045669079238*^9, 
   3.5030456709162226`*^9}, {3.503045771695483*^9, 3.503045790526284*^9}, 
   3.5030472858816996`*^9, 3.503052343103826*^9, {3.5030528913056307`*^9, 
   3.503052913336317*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.529160568001206*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.529160568011207*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "unfl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Underflow occurred in computation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.5291605680132074`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(General \
:: unfl\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.5291605680152073`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.529160568020208*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.529160568021208*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.529160568022208*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030599758662386`*^9, 3.5291605680232086`*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5030514424066086`*^9, 3.503052845759922*^9, 
  3.503059470110821*^9, 3.5030599846465893`*^9, 3.5292019789098825`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"simulate", "[", 
       RowBox[{"x", ",", " ", "0.00001"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}]}], "]"}], ",",
     " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"simulate", "[", 
       RowBox[{"x", ",", " ", "0.0025"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}]}], "]"}], ",",
     " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"simulate", "[", 
       RowBox[{"x", ",", " ", "0.021"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}]}], "]"}]}], 
   "}"}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"#", ",", " ", 
     RowBox[{"PlotRange", " ", "\[Rule]", " ", "All"}]}], "]"}], 
   "&"}]}]], "Input",
 CellChangeTimes->{{3.5030398564035807`*^9, 3.503039900909521*^9}, {
   3.5030402453552485`*^9, 3.503040265998459*^9}, 3.503040331147609*^9, {
   3.5030412299874754`*^9, 3.503041230011898*^9}, {3.5030415438856115`*^9, 
   3.5030415820130496`*^9}, {3.5030420255479317`*^9, 3.503042032096034*^9}, {
   3.503045431658989*^9, 3.5030454540094566`*^9}, {3.503045669079238*^9, 
   3.5030456709162226`*^9}, {3.503045771695483*^9, 3.503045790526284*^9}, {
   3.5030514607113132`*^9, 3.503051461039283*^9}, {3.503060000551211*^9, 
   3.5030600114250975`*^9}, {3.503060050436727*^9, 3.5030600540613556`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.5030600815116696`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Indeterminate expression \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.`\\\\ \
ComplexInfinity\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
encountered.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.503060081527293*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.503060081527293*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Indeterminate expression \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.`\\\\ \
ComplexInfinity\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
encountered.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.503060081527293*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.5030600815429163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Power :: \\\"infy\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.5030600815429163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Indeterminate expression \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.`\\\\ \
ComplexInfinity\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
encountered.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.5030600815429163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\[Infinity] :: \
\\\"indet\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060011940669*^9, 3.50306008155854*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxM3Hc81d//AHBERvYoJDtJInt7iZKVrKwyQyESsrJSIStRISWjbHGH3Cu5
QmgoRTYZ1x6JpEW/9/fx+D06n/7p8Xzce8/7nNd5vV7nvP8oMfcLVp50NDQ0
6Qw0NP/7W3oHJ70VKQ9o/v9PJeVJy+pz5EPBx69mtiCrjyTRfXqHfKyagdZ+
CtnL+vemE/fDfy7Knd7wPo/McXd0XY8z/58v/cxYiu5GbpcYq3x7o+Cfa1oS
VuO1C//5miqb9tkt5CMBB47bEYr++UvkPne/0Edo/n+jNr+oPf5nZyM/17gF
5HeRTPqpy8iAK5LI/oosKjg4XbWBPL5g6DewrfifPW6KRhwSQvbp7c4cNUMe
ZLlwae4Esimw2H2zQpYt1RNkcUBeCq/KV/FEDtiTUJUShRzqodmu+QSZ/s/a
DBcOOT2zimmOgFzaLGqSRUbuF2XsXGst/s9+dn+sHEJuDU5duzqKbMF6jPfU
OPI5rfqTzDPIOTn5/Z6ryL9O+o0KM5f8c/yS1N/1Hcjc18dEOtmRZYjWbpd5
kZ+assVZ7ULWn2wr3C+I7MitSe0TQZ4uW6OvFkcOPFy1N34v8la/l6GTNHJS
gOhZ5QPIO5kGE3bIlYBdbyEc0XsBhQ8zSycOlcBt01v55mYfQU7t+CuyUgk0
eRrIBt0dhGfvts+nq5bAVlvgviqbMTDyamI5p1ECGy9uBZuSJqBnM/wAaJfA
kes2lLUbVHC9o2S2E0qgxnRHaOXQFCzKLp1fOlwC+IMsry9PT0NYa3Fq65ES
+CbwxBffMgP0p12f5B4rgfnLWhyHvWchfU3gfaBJCbimPtH7/nMWhJK7vxgf
xz7fPcdsdm4OSsVTOcUsSsDFO7v2bc8cKNcbKvywKgGLlDStTd15aLKksXp/
sgSY/abzdJLmwWyOHFhsXwKXnwz5D7ych/7YoMyoUyWwbWJFdpVmATz4DxJt
nEsg1MydvCK7AJHH8tfpPEqAS/F7/u5rCzBqFNTxxqsE/i67sS/lL8BhE8Pc
294l4FbJ7PXlzQI8MhXwdzpfAgtDHBEW3xdg+/FFPakLJZD26sSHKu5FOGdO
4flysQSUwmfffhBdhDcnMqbrgktA1Ckuh15nEeQsPcmxoSXQkHc3hsd0EdKt
1FOMI0pg7LhX0G6HRVi13uHCHVUCHYz6VTsvLcLJk6MKQzElEGlxm5Hl6iKQ
bHH0j+JKYPmgfPb39EUQtL/Wd/56CdwM/HFuOG8RIh3sylUSsfjRNF59VrkI
o44yUVtJJRAkpLqaWb8Ieqc3T7SnlsBr0t/nnh2LUOTUJZ6ejrzdpWjdPhN7
fnvhyqFebD2uIR1id0tAJj49c31yEV67GefOZ2PxbJeoIXxdBNkzQv6EXOQ0
jy96kXkl8Fmn4ITv30X46tnMc7QA+em5c+Te4hJ42a52WYhtCfh9tFIelpXA
IJ5Gu11wCS77srucq0TW8yfS/8Jh+8tAk+srvQSvg2gs9jwvAS1ZY7sCgyWQ
vdQtPk1BvhlSvP6kuQRw7EptipZLsBoa3hH6Etkm3CxXr6MEvH5kfn/uvARP
I0T8md8g80eu6n3sRI6IesmT24U8Ep09faa7BIpimb/qn8fmF+tLlu1FLryi
m7Lej0x/lculcagErOP3NL4IXwKva1SFhFHklRuHosrnSuCrv6GXZsISWCVv
swhaRK5N6RXX/lICvh4zXytvY/NLK1unX0WOuBnZ0fkNmf5OB8/XvyUgkWHh
LVCIPe9u7jSZrvSfX2X5k+MYkGVzDqeYMpXCjCulJ6Z6CdLu8brw7kBeyZ1R
GGFDtnpQT1/MiUzMS+3z50Hele9arrazFL7hnLXHGpYg+NbeWH0h5K64+ZPH
xZGjf79tstpbCnwCx0o1X2PzCa4+YC+NPLh4667TAeREz2DaM3LIqqO2588p
IFNtNfr8lJEz3u/WD1IrhS6+GNGbfdh+GW1VhmkiLzeN7YrWQb6v0RJ3VQ/Z
BP94KdEA+YdMon2aYSk0mf6uHKFi+SR0XC7HDLmGjZv+kRWyc/w3/7KTyKx/
ewee2JfCLDnvpNTqEtSHko8QTyF7r+RWk52R28Zdr7d6IIt37z313ge5y5Sp
rcevFJy/aop7/8Xi2Tp/aDCgFB5NSv4Ixj6X1enM/RyEPFhbvX0qBDlRLuPi
fDiyaknw8JdIZKqI3bH1GOSMbA38r7hSGOxoOVOHPW/5xlYCww1k08stTpw3
kRv0+ohaJaWQNb76e411GXzIZJHD5cj8iveTDKuQ28qj101rSsH2l3OHjOAy
BEu4uVoSkLt4pVRPk5Flty/sOEtBHozuDDnfjJy4UT1+8SWyakCGWWgHlh+C
j7pO7VsG6mxwXeQbZL1BjdSED8gP3my5Z/Qhe5X8ZfUYRD50laZOZQT5lzOt
G+MYcqsm3Y6BiVJwqD0ulKC8DGk7t9WWTyHbr25ziZxFFn9Hz2y+UArffUU1
GrHfL5YxEESWkWPdGBlb1pB5BJhPef1EHv7GzKD+pxSCk3tY57DxirtYqpn/
IgdU7nAYoi37Z81E1m1V9Mi9RwSL2hXKoNHAV5ZdfxnyRXcfz1FG9vmze8NH
rQzyosweHjyxDMr9QgXamsibhD2m7DrI6b4iD3H6yJISYms2RsjLW2IPpEzL
YMfvKLNr2PikQfFjP44jxz2V+PrKAtk0QzI31xqZ13/vUT/bMtA19jtUhI03
aiz1RdcBuXTvvhzO08iBtNIGE87IOQEHFqR9kJs+y2VeuISc9Exe53BYGbSc
kQtoOL0MNlmHZrgvIwsHKdyiRiHPmitqPY1FjtyufNMhHpmjUWXyTzKypoft
WYEMZA+W0AWVbOQIp4SDR3LLQPqdS9xRp2W4WZN1wSoP+dG2UpxrAXK9LWnN
/xEyZ9HP3yU1yF5fNOnHG5Aj9U0Nv1DKgI7UHWvvswy37pxK3GxGLp71fb2j
DblBK5JV8BXyzPj9dNX3yNyJz3mtPyFLD3XauvUj68iNZl8YQra6sjwYNVoG
I2E/YQKbz7meLaGUceTofRwu96jImREiBaUzZdCrQ3/1G/b70k75yafzyI2i
entfLiHz+l05uPUT2YfcrKK2vfyfY1m7Q48yI99xmSRbsyKX49d+u3EgNzHQ
6wZwlwNeWFWJNgyrF3ve2Gg+5IUKyeYUfmSav8r0ubvLQdrEnFzkuww7rY4a
lgkjn8+LN5+QQW6eb7fdrYbcr9OfvV8TeSl9dlBNpxy4xa7kVGPj01F/CBnq
IfOrMbvYGCAfTBIocDdE1h/ZPxlgjGx/SHNvjBmy31WTs6knyiH0U81Lz/PL
IBT6VS31FPJbn2ym1LPIpH3Nf1J8yuGRxtWmgHAsH6kLKyl+yOkFfFMpAciX
nWEgJQjZqj/jRUo4sozVdFlKDPJODs68lLhy+Mzsbqbph633rUZGynXk5cQz
8SmJyANHUyNSkpFrKGPuKbeQEzWUTVOykIO/O0HKPWRXQoJSyoNy8FuVPH4k
YhnMAnD7UvKR1Q8O7U4pQpacp+dMKUbmLJGjTylD/nPG/kdyJfKMaNxicnU5
qLQ0ron6L8Nd3v3Pk58hGzJ1pSa3Iyu+/Hkl+TWycJxESHInMgsc90nuQl7/
HeKc3F0O048uTO+/vAxjpHyr5F7kt5deGyYPlMPRQk0PgQvY/il+00weRn70
ZY988mdk68nWv0kLyHR9vl1JG8jLmXdak34hD1pQSEmbyG1sc5VJNBWgNlwt
uevMMuBfcxckbUPOS9C+k7QdOemI140kZuQQ2vSoJNYKYK2yMJIIWAa3RvLF
JA7kgC3jfnE+5BjdQd1ngsjxzuKBCXuQ06J9HluLIt/Nw/eLSFQA7Vz+RSUP
7Lxv/LVjcS/yM93dA0IKyAONWsXHtZEtKc8HOb0r4CH9t6Z0h2W4AKMlh4OR
UylbwYExyLc/G5bqxiHf/5s2xHK9AiS7q7LfHcfiL9LH3peAXAEi+kVJyHiX
s5cupCLXx1SXaqVXwA38G50xR6x/PNwYYsxEfkUBjp47yP1/3186n4s8A67D
9AXIyy6lHB+KKiCVzFUpj51/32NW9B8UI289VA/xLkNmaIotU6lEPtz0wiCr
uQJMmFRSUgyw83A5YLC0Azltj+jF+nfI48RQ7ZYPyMpm7xnf9iAnTEp19/Qh
D0ZE540MVoB29ZXW72pYf+Pu9Z4eqYBz+Kv32I9i/bzsoMqXMeQeves0PyaR
9/UPv6GZQY64oJzFPI/8bnuKO/cSslje5MHdK8jBKlo/JdYqwJRfY+SGBnYe
ZORIHfuLzLayYe2zo/KfXRNOiASxV8K7BFU1brllIAqXzF/mQmZ8ulV7jRfZ
8bjtldRdyFXUKrO7gsg0kQz8D/cgW/M4TZaIIheXE5/USFRCG7XpZok41r8G
zhxt3o+8xsgz3C2PbPjQp2RYsRJuf3JkeCm/DPdUmwOnVJCXOgV0l9WR9Twv
Mm9oVcLLYfoJH8llmM4UzWfSR05pfq8qaIT82WEfnYQpsuLX6M4D5sjxib3Z
ypbIAyJyHjo2lbCzdzx6jwC2n+Yjv8wdkaWiUm65uiKH81JPe59BfluhJR3o
hSxikLkW4V0JOaISrcNs2P1vcL7x6nlkfuZ7J+8EIlPUjBeLw5C53+fXVV9G
9vL6EUeKroQxafV7pXTLQN48Yf7iCjLrnRKB19eQ529kygUnIXdExxgIpyOr
ha8fX8uohKs5nXOxG0tQHORr33GnElwE3I6X0//vfjvu/iAb+eo5O7/AXORV
987QY3nIrk4GcUIFyO/tyClfi5B1reSz2oorYc/8D7uMn0sgdGx3ZUAl8i8t
xheCeGRv1ag3X4jI/YfWPrXWVYKkg1tB/PISHDvgPZZTj/x07+d5/+fItwXf
/OVvQb7IUcfb0oE8xnxQJPtNJdxjFedJmFwCc/qi/X7vkJ9v8Svrf0CW/Zmm
u6sHOXeN3nixF5llOcL6xQBy+OyK091h5NkJr3O+nyvhueafu5n92Pt1n1UU
3xTyo7e6GZR5ZJ524v3bS8hxL2RKvFcqoX9xbmdl5xKsPMvH6a4huzzd2cDz
HfldTUrb7A9k7Qq6D89/I1c8DhvK2EIWzF+eOktbBUJH90R1NS/BjXseK9r0
yD9uD/7iYkQ+e9OCYYa5CvZcp01j7FqC3httHA2syEevaQve4kAmRuMlvbir
wH38Z5fmyyUQD5eW1+JDvhWUp8HJj0zjz3tkShDZ/1ySef0e5BF3Goeboshm
TiFnPCSqoE42piW8fgm7z7mHse9HZjpmnkqSQw493JqVqoA8raVZ6K5cBSzf
ky1aq5fARrWmUk0NueWQVB2rJnJ0YYWDsA6yOq/CH3k95LXrT/MOG1TBk6wT
ZwQfL8GTDa3D1obI57xfTHoYI0sMGcaHmCGPmr2VTjyBnN1o+SbHqgqcUw/O
XL63BGyFpzmf2yPHXT97cswZWXtjceOrWxX0v21on725BBvnAu9t80TGD25o
851DPm8W9VnKF1mqkS5O3R95XD5R0uRiFdCKta+4Xl+C+wVs7aeCkW15Mr39
QpE5r/OzxkQgv/n+4El6FHL8OQnLwtgqyE0wMqdGLIHeYOka4SryL1O5uy/j
kWufE9T7biAHyGsMzaYgyxQ0Rv26ia3/lv/bwIAloHIfEWXNRH547VXznrvI
jt/NPeVzquDYtWc/nkctAe+5HsbD95HfDTiUWz3E5nvGbb9jEFYPpp/NPAqR
jzz3+HLpMfKW3PythFLk2fW/u98Rq0DDeY8xrfcSNFw9cOhUZxWsqccyB9gs
gefDOPtLW1WgOl18pfPAEuRd1Yg1oTwBm2c3ZkoyF8Gk+TuPYDPyBg2xZK4V
+RFc1CK3P4GRWXYL/aRFsIiWe5/4GvlPw4K7fSdy2e/S7/u6nkBIVf7aVOwi
2Gp6JW18RKYLlxBu/4T8pG4Md7cf+dT3B0e9hp6A0qBMS0boIjCpnBpQGUUm
BvH7MYwju+E/0XyafAJHip9VG/kvAvvXjNuPppHr5S2kg+eQz/qzNRgsPgFr
k6vljJ6LwFv1+gTPF+SmhYTJia/IfjJHQ/HfkAW96XbEbTwB8wfdj96fWoS3
ZzYcmuiqIRIvkp5vtQhhhcSlmwzIe8cvXnFhqgb+8N9OEcaL8FFEnk9+B3K0
82LpFhuyzIMy7XecyH1DXl0PeKqB1mk3jZPeIlwTlPTw24l8yGF8Q1sAeTgr
L5lVqBqY5qzPGaktwo3eUyLDwsiqfAKECjHkCetew8uS1aDuk5OoLbcINzMy
B032IWt/sPAXlEGe5WCnm5ethke3/1pp7F2EO+Zv7pDlkfVTE/ffUERefnP0
ub1KNbjsJ5N1hRYhl2WbpbQ6spFxE3VDE/lbQlRYu0415DzYVW3GswgFbZqs
WXrI5gw/HnoZIP8yqFVSNawGzpakvWdYFqE4LrCdwRjZ+oX8qU+myDQ0S8uP
zKuh+GI+RxztIlTqlscFWyLbR53decQGmaFBspzHrhpEFeldy34sAP7XuM6k
A7KzxsMP+NPILGGnPeNcqoF7Ppp54MsC1D0V+Gnpjuyx3psi5onMqXxb9OvZ
aqAmft/inFmA54GWxCYfZB8cu1G6H/LOlTdDLgHVEMPH5jm1sAAtcjcuyAch
N1BP5mqFIBPvibcfC68GDe04GvnJBai0+LJqHYn8aHuDsGsM8v2GRJPzcdWg
lCD2LHZwAW4HngwJu46cIi1eeC2xGv7aWicOfliAa6PLnenJyIZpNrKrRdXA
O083uYu0AK+XROaIPdWQhNtLxx61AN62pxT27K4B//pCZ7ttC7A60eV1Q6gG
Bl7GcwX9nofIC4b31/cgpycqML4TrQFF/daSO2vzQKpnHImWqoFrL5xtv0zO
A5MIMXFMoQZySX9K11rnoXSGdazIqAYaLpnKPY+dB8XgOD5OE+QGmh8mkaY1
sN2AdtQofB66BCZrbcxrwFHX7MPgxXlwLLZfaDqBTFV8J3rQsgbk7vj8DfSZ
hx+m5GQGmxo4dbPChevMPMT1y724eLIGjD0uzNWemgdWz0ffR2yR734VkDWx
r4EUzn23XW3mQTT6pttThxrQGGFob3Gch3IWhizxU8jKWRFv007XwJSZ40CE
9TwY1XiqnXWpgdThj1/UzObho/bQ+W7XGth79gDd7yPzcPqVRSG4I0+fbOur
OFMDTY/lmVp15iFgQouN37MGgpie/cxQnYdf/jj9a17I135Lha2crQHKTdK7
s/LzkM3LPdnhUwNnisVj9KXnQbwggV/lfA3k/abbJiE2D5UHN48X+CGr1gde
ZbtQA4tOgVbMgvPQZDhLCg+ogYN3sz3XuefBpNtpeeoico9Lt4RVELZeg0rl
mR3z4Lxo5NAYXAN9tat1o/TzMBPWmCYTgny6Xu/BzdAa0OmkzAxtzsHH380V
38JqoKv7UsPo9zk4pnO03iECuSG6vaPxcg24nr4uN/NlDhSajPskomrgs4if
6vrsHBTTvp1KjEbebWD+bSmmBsyHyG+ZJuYg/VoXnfWVGlCR2z4vNjQHDG1W
XKQ45AjGTyJ7rtXA+fBf8Xo9c7BiZCcXd70Gjjea3ffonAPPpAHtmfgaUI5u
Ek9rm4PBN6dMzRKRLdhGHXA3auDyPSme55Q5eGnuem5ncg3UKTt5fSXNgWb6
RMjlFOSUku0ubwux+U2d9g91nwPauUQ/hUfIITI7Iu8+rgH54A27b6fmYME3
Nel3cQ0QLplByMk5cK3iyHEtrYEvplt7Ns3nQIXA3/2tqgZE5PWPVWvNwWij
zLE95BpYd35w/zjHHBzqNZf3f18DBoy9v/qaZsG0u//G164aaJHVOdNXPwte
Xe7U4I81gBsbkBwizsL91yE5lz9h891oyftSOgtMlLxtN4ZqgCGpdtj01iyM
lSz3Fc3UAG/mERyH0yykh6fFDvytgc5HT4MuL83AF6F3H44cwoHyM839vAIz
kG06Y/pEAQc6zTxfznDMgF4ETdsuJRyshUq5pLPMQEafYv28Cg6YyLsb9/2Z
BtWMrMJ0LRy8LFYtKf48DZGMbkHDhjgY6O09MlwyDSyra7zBTjiINK8NvKk+
DQRRtpsjzjhw3veDc1l+Gk6fkGI+5oqDpiwBsYID00AfDVdr3HDgdcG0jl1i
Gqoq7TcFzuAg1VX0ULzgNFicfT5FOYeDe71TB/fRTkPWcPzTHcE42BJtrNZr
nwLJdgH7oiQcHJ4/7xtwegqCcJrCB1Jw0GxEW9dqMwXNuaeo+FQc1EsMa4gd
nwKXgAcBzek4YOamqVjVmYJ7AmI3xu/iIHuPQPm6yBRwnJeuFynCQez0BWWW
OSo42xrHljzCgd60P65vnAqVej6G8sU4aBXgUD08SoXfMsmsdSU4cIsoaxHo
o4IJX+VH3TIc+OWsFvx8T4VrjfILTtU4uPOty+QFgQq/ONWE7j/Dnm/a4uV3
lQpGv+0mJJ7j4ArDhHtBJBWypsJKKxpxsB4XPq0TToXp9zn+Sk04mPnd+fVy
IBWU6+uVn73AQdXvg4+afKlw4Yzu8cF2HFSX3xzysKFC43EXHvdXOPAh43fz
WVKBVT12YO41DiJiui5EmFChnLXZ82cnDqQuCp7P06MCtfZoNH8Ptp9LEtxc
B6mglO91JP8TDlw85oRzpKgQl5TAIt2Hg3RnQqiLBBVEXF7dVRvEgWbXTMMz
ASr4G8+fpgzhIOVToqYtDxUalHZIHBvBAUm/pWkvJxV2CMvOvRvFwfd8m9ff
WangyHS82nYMB0X7at0fbKdC6arfpdFxHJzYJfklcBsVNobTtLwmcdAZt/+X
MQ0VDNuraZepOBC4lR0nvjkJt3Fd7ZemcbCNeDThz89JmMz9mro5g4PTxdsZ
+79PgmI8t831ORzUGooFZa5MQmyAkiDbAg52tcs6BS1NwntHm7HbizjYSap+
bjM/CUy/rsTwLWP5JhWfqTYzCfo51cJ3vyBHqo883/kVB5VOqSO7qZPwtI/F
KWsVB/JTRfdoxydhJUT9z65vOCiNKXs1OzIJMju9crPXcfBKOsb7w+AkeNRm
agpsIOfZvBjI+YGNx8MY/qxvEvrXlsMEfyFzZwrx5/7GgWSZ5EZxzySYKZrU
7d5Evv4h1Pb+Fg5Y4xsmMj9MQmPA43UhGvw//+Dovv2AFlmxmkZZeBsessKJ
mnHvJuG8uVx3Hj3yWMoNrnxGZJs31BMFLMhpPtxfxFjReB3MemmFbMhaRrlv
izjx/+YXPNPhK8mN/CT+O8tjHvy/9c3ulSzfy4cs/tLSuHgn/l98TnvEzErx
4//F8+62qoQSAfy/eHcVDkpJ78b/2w8Wfaa2UiE8fH9/TSUN+/2RcRXP/cJ4
IHj82Wofm4To2DP05SJ4YFLq4Z2ZnASSyK0iGTE8NGeFlu7H9n+1sVG/QhwP
VZwZ0sex/JB1Xhw/IImHIst9udlrk+C1KXClci8efB65bJvH8m1A6xKlShoP
53WSBvOw/OUeKnSWk8GD17Wc03RsVDCL6Np8cgAP6Xbxv3yxeogX2LovfxAP
VtKsX/n2UKGJdEC7Rg4PQzqpf9Owevpl5zB06BAeHrjGHLfA6k95Iz4Cp4DF
o/dB10kZrL7uEgUUlfAwPG7HM30IqxeVCRJeGQ87g2MiX2tSYaKHw15JFQ9b
fx9XcxlRQShYZ4OghgdGD8phfisq3MRnq9Rq4oE018hQ502FDsu2HhVtPMQ7
nfY4FUoFuq9rQU91sPGbHDwUw6ignS7GowZ42Jv2bJ45ngoh8ifwdXp4cGR0
uL2ZSYWad5GW6vp4eJfD/4KtkArzfuUrJAM81HVUftSsoYIkW/9NjaN4KC/U
dxdqxvpnJYN8vSEeNNU2eva2U7HzRumdphEeKrqq9V0HqPBx3tXvmTEe1g6l
MfHPYv0qKY1V2xQPWgUj57y2qHB0f0NFgxkebA43f1DimgLWX2E+EuZ4mHl6
IZpz1xT0vFbZn3QCD92q9CdAZgru567OrFhgvw9XeVKI9XeP89XFdlZ4uJA8
nqplOQWyOuc9G63xYHp+ruDNqSlYY9svufckHm445nX2X5iC+tGpiWRbPETY
7chQSpyCuOrCglU7PEzuS+O8cHMKTGJdXB0c8IDXvvfQuXQKuC2FRJoc8UB2
6NF6/GIKBsUGRqROY+vTwN3/3DkFBat37qc64UFAq+dVz8wUNKncyJI+g4c/
3wL5bbHzMXG7oe1NDzzAM5pdMjbYeddHx/fdEw9+Dm8GUs5Ow+ewyIyWc3i4
BB7fKJnTsPXsQqqzPx44cugSr36fhrYUWbOXF7B6E37SF882A6lOcyyyF/Gw
NEBDV3hwBmzkil9lBGLjc65weOnNgNBf98SfQXj4JlO0XGI9A9T3IsdcL+FB
2lqSsMtvBirzhxnaQ/DQZBAxHnFlBoIv5rQeDMPDza8WFX6PZkBL3/bq7XA8
DFh91N8gzwAdD4/+7wg8nLlu6rirawZeT76ncY/Ew0W/kuju6RlwvG4cLR+D
5c9BX7t3HLMQ1qEd/voaHlw61lN8HGdBL+enmkI8Hsx27ryA98fuMz5Pv2cl
4EHJXvxBUdIsdGkG1W4lYvOtm1Rtx+43WTsOBXsmYfnutp6fkD8LzsOLim+T
8WC+y0eyHLsPSVWVfVVMxdbj+VJ9gjILy1FeNTlp2Px3Evu0X83CU3OJCzTp
eBjd3n5rfmAWokXGDp69hcWXlS4scHgWDFfuL3Zm4OFH9QePuJlZYH/hUKF8
Gw8Hh/GKT37OwqdbO31y72DxzxgfLt7E7mPu3dJ0WVh/6Q7S3Uk3Bx5K6TPn
svEw9nD6rM3WLMjSHy9+n4P1J/Xqp7nb5uBbD7Onai4eVu2fBzpg97+Gx20S
D+7j4dPe0Ut3+ebgasjViW152PhirnQHeObA5Jhegc9DLH8r9SqZsPG5+Tdd
PuTj4XS26uBBGuy+O0sWVi/Evh8cfakYe14hOWQkrwgPvR1k5xBsfj5JSvcZ
HuPBUMSmpuDPLCicWnE8X4yH5e9rBqKrs5A3Q/T8WoKH8RaJ+OyJWWANDg8I
KcP6Fa1xYAPmCBrdy7/L8fD2mON2Fyx+syl08bGVeEhWUtE/8HoWbAXa0xme
4CGq+korB24WWh4n5yZV44HvVOirP1mzcEjRopgDh/WDQG1iRRr2vEZe3G08
HhaaiV4vL2HPMx14JkDEg8gu97b287MQ3vegLa8W68c5y027bGZh+oz7B4k6
POQ6Nc5c1poFmxWp4VISHmy3SiXk981Cc+TC9MF6PLQPOb6pYJ8Feeaar/hn
2HrFJvBC8zNw/07wH7XneKD9Pjm0Pj4DLOIajM8b8aD+Ie64zvMZCHuyyaXf
hH0ucOydVfYMTGk2C7W/wIPvq8IDCekzYNUev8+sBQ9fHIaUQn1noMnaVPFD
Kx6MMx6I/7adgZDrTk5Tr/FwuIcH1zExDROzVwhsfXjIjrvU2Ls0BRaXDBsz
+rF+cqmEL7N/Cp7T7ni1axAPP/mkrEKIU5AteHtUbATLh21DF25ETMH2Evu5
4lHsfHv1ufn1Sew+q7Tn24ExPMhEipSy6k3BGGV8q2YcqwfbRHLMwSkwNytm
Vp3E+jfXmLsq0xQ09PvwPqPiQSXgVPgf+inY7ykvojeNB1nPUnuPz1Ts/Xht
/8sZPNwdKcqKeUvF7t8kZZM5PHxund6XRKZCIEsUvJ/H+pUb/yP7p1T4fPew
ic0iHhL1Xf+aFGHnm8T2kwNLeJj9dV1NNp0K9dWvXZy/4MH6Xb/wH+z+Kq19
02dyBQ+1Y6Px9dh5c6fD+tK5Vex88LTQO2uLnTcn+WOX1pADxoeTAtexflPO
vZvOgAqjfgV3Nr4jm/7yzI/8gfX7n4rTSfJUIMXLVND+Qpbi+VIb/xv59kNC
045NrD8LxTJfFKECrWzYm/QtZH+Sdi8fDeGfh4/Qjt+jRTb58HJBZBsBzJcW
PJmw87nOKen7I3rkjBAe1mpGAkiZD/54id2P05TPqgoyE+Do8LHdqth5fGO1
3vU6CwEY7LSMSrHz+1oNe/LKDgI0NKbFcOhSIdbfvfYUGwEGPnvSsepT4bLs
089t7AR48zIsxv4kdt7OM7MochJgd6plnp8Dth+lTsoPuAjwRSCTr8iJCn5e
OGcmHgJ2b5zDbbhR4Zwkw40gXgKEy75+sjeRCh4T9oRRPgJYnpx0vp5CBZf8
yhHjXQSICj1SQ3sLu3870zDV8hNg0yDZ4nIpFWyFbBRFBQlwROyMmmQVFSwH
S04n7ybAmcx9+x63Yvud/Tv+uxABMvjPNRGfYe8rtidwbsJYPCor37l0U+EI
b9HQWxECnD6N+7E5TwX4+J1BXYwAmqfIj8cnqNj7tcmhInFsvr+mfz/8RQVV
8zxHdkksfqNcCn4MU6DAunotfC8BFLwWZfSw81729dFqqhQBJpQSDkjtnALp
xJyBE9IEOPtwQCNPbAokDJe2PduPxQePJxvsngJh+sNyUgcIYOGBrzy6bwoE
m2/b35IlgG9XwttIpSngi52N+3OQAHmn7E5ul5sCTl3tqrPyBBALKwdTeew+
8edm38dDBFjjmuQ2054CxvpJWl1FbL17hJVb1KaALkxNtkyJAGwjra2SR6dg
SyXZlleFAHfevL5nqzoFv9ZGY2NUCVBonfpV8cgUrOMUK+bVCKA2Z+hpjH2+
ciH+00kNAsS1fzURw+azeHDwb5MmAeQKePPkDk3BzMJBGVltbP2vNPk/Kk/B
RNkVmywdAjxOJXI4KE7B6NlP0XRAgL0XfzZyYN8f2Lu/zE+PAC93JPRWC2H3
n8nI7v7DBDDhDxN9IzgFXQVdmwYG2Hp/K3/jEpiCNy6S0tVHCBC7akp7Fbsv
te0JsxI0JECMZA9xDesPzUNvIq8fw/JrnvtE428qPM8RKVkxIkD1oq85ZdsU
kOyCPpwyIcAxISebQmz/iHztv9tMCfDKVUPi1lcqVHcLSikeJ4BLf2VBMnZ/
K7/lb/HAnAARPztpXLH34eITzRFMFsgFbDsfB1ki33/j/X7UigC9Nsfx8tj7
cvaN5z+NbbDnJ21RabD7YhqDp7moHQGerzhrlGL9KKmFFJZsj+X3e5b+5joq
XL/CWvTdAVvP51X8zRKsvsC10+0UAQinXAJXsfyO3CRsvD2NzS/zbelcNhVC
nzGKqztj41vVflzE6iUw/JRZkQsBphzF3g3EYf1BrTqE3Y0AMs3sx7Sx92vv
dbqCcHcCqCc/UX3nSQWLc2cejZwhgKtvakKpOZbPQy0lhz0JcPdYvMlTNSrs
MZeseOxFgN+ZzkJbolh/fXHtCfM5ArAf278bx4fdl5WmcH7eBJiXaSxu+TsJ
H4qP1n7wIYD1/sg3Jtj7EEmgmKRyngB+j6+ELr/A3hdTtjfk+BGAkb57kpIz
Cdf+elE2/Qkwt7WjpuLiJPgGtje7BWD59WWtsNF4Eqym9rW9vIh9Pmn3llF8
EtTtE1/tD8Lq/4cQg8v0BAi/mX2bGoz1C365yxyUCWDQNe76egmrz7jr3KE3
JmCxpqz7ZCgBdsrP83vpTsBHCZY+chiWrznEU52ME0C66zO4J4IALeRceq5n
4/CQ+c3IlctYPLbNdBn5jcP5L8lU42gCHLZQYCVMjcH2Z2yrA1cJcEIzRFro
xmcs//3Xda4TgHf3uReFs6PQnf/uR0E8ll9Ndyo6BEehnkf+D0Mi1k/Ykgee
loxAfvzNv943CCAsf0bnhNIIxP/8QvcuiQCXoz68Xrw5DH7nLbYrpmD1G9HB
f3TXMNh8rmG+m4r1i3taR0yLh0DTiovtVxoBuiysPRhlhkD05UVO53QCeJoU
3aKpHQRG9Y88zbcI4IXXsGgKH4TlcsVdUpkEGIljWN7UGYSePZmCSbcJINmW
VtqjPAj16Wt7lu8QIIT9mbrtjwEo2GYjZpWFnBhClHyajew/xysteI8AAb1E
nqe0g2Bz+tKB6Fw0vtb7T3IT99F8xPVVFQ3zCFA+IjMd9nMQmGrvqpQ/ROv5
sm9Dnb2AADvkL5+otB+G3nt22oGF2Pj39fQYdEaggY0EvUUEGE3v0H1uPgpF
sfwGmo8JkMiS3W8u/xmS1sIM84oJMC4RyjGpMgYBXgPGdKUEOGmunbmjZwx0
ze5ZvC4ngFPCprOr/ARIUn5Zy1USYOg116nb/ROwQ/GUXUYVNn5QPOVGGPb+
/OiZ4/cnWH2kf1u3Z6dC/y4hZ8caAlw393IVi6JCY1KkWyMOOw9TbzKEvqTC
481hD3EC1v+PVdXOYOdFSoDOuXgiAZT7/VsiKFg9Tj7wna/F6tlE4aBzIBXs
bbf8zesIUOTTQYwbnQR45RyIJ2HnU0i35J89kyClTbm0s54ANnWaa7OGE8Ba
LRIe8YwAH5tDx3VtxiF7JKHjTwMBrHI+cUgYj8Fe1pVdMY1Y/MceOO+OHQW8
pv1Z2iYs3hp7xU5nDYOud9PTqy8IAMD81pU6CK+zpLdvbyGA4lvV72/PDoBt
W/rJxFYCbBRozouJ9MPEtx+PWNoIcOOqOClkVx9ckHD7ltJOgKCnvkpSOr3w
x/KVAccrrB57f9Rw3vgEibEKmbdeY/E6Pp24d8cn4K3OmeB5S4C/T2913Wvo
gfwRWsW7nVh9dhXTiaf2gCyrzxX+9wTgiD/L/zesB8iaH7vudRHgherDSbrY
HjD01hTd85EA/i77ieH5PfAxq/DCw24CfFI0OJ492wPObSwUsU/Y/UIkjO3D
kU+w8C2Q/VEvAR6WPMtYw3+CMIkhJ6l+AtQst1U17+8FeiuDqtIBApTJt/sU
1fZCemzFH5khApAbpZ39zfpAqJrHrGoY208GXsLZqT4oHbmcKz+Kjf/GNsv0
Qj+osFLncZ8JEClmel7gVz80a5ppKo8T4GZQeV3GxQEw9ybeeDqB7W+KkMp4
1wAMZgkNqFMJoPIymaWEZRC82q5JP5vC6ns1V+GW4iCsflsM1ZkhwPsL46re
8oMQI3GynTKL1bu5O/cm9yCwWj3fqT9PgJ4z9wO/UAcgO3avV+sCtp4FT+XE
5AGQrE6tNVzC8uVQ94VIqQHAjazTv1rG4qmtyuyX0Q+6rM42pitY/k9Fb6/e
3g+vNduKOr9i+dTgqDLo1ge23nJrJ9YIkPvj2fZsfC9MZN3V//gNm197uCcI
94J/29Ytm+8EKHguLFty9RP8/uY13rtBgOPSRie2f+mBRIn3hxx+EuCRddXz
85d7gNdKLXboFwEq38526+/G9jv24XunPwRIsniyWtTTDbLVjCJjm1i/pFd3
0C3vBtLIBX/3vwQo3sky31XVDUdZ+59TaYhA8/RPTXNLN3zU1GM7S0eEunKl
xDEObL+9S0/PbSOCcJvTu6L4HpjP4qz0ZSBCrexjcrD8JwhtC/u9tJ0Ihca/
6dbFsf1eHzMJYCIC46PO5QyTPkiXML63yox9/ypPhHN3PwhZ4eaCdxDhW2kU
F9fjQSiNFdDYYCWCGv+QXGn3MChXX0kMZydCudrQQo7KZ3gxMtf3m4MIr11C
9jn2jYE5q9W+aC4i9NGuf7qyMQ6DmvUhNDxEmOF8PfhraAK8vMXb4niJYMhi
sfDiLNZPspL4GHYSQcUvhloUOQnRbaseCbuIQKtR8FZk9yTsWHckMgsQIUJz
8XjMmQnIlmjZliJIhEeS85GqAeMgaXXAml2ICCK3skRXj2P9DC/eHLKHCDp5
XxZ1342CPbegwmdhInxo41+NWh+GwECu/GOiRBBjE59uqhuC1I9MHDViRBBK
K9zu9hRbryJNNL8EERyiTsxV+A1Cc8bGYqwkETYjJuZ8sPwcXl0+NbeXCMs3
/+hOXh6E71bTry33YfGIDrEXUx8CTsKIRr00EbwHSTWc54dBhudTqbgMEeSW
JGv4WUbhSNDbXckHiMBHw/pLbPwzuHS3xK/JEiH1nnD7yvQYRCg9Wz8lRwQ3
Wk/bCx3jcDsT79EqT4TBBT1t6/sT8GStrFtWgQh0eVzvv6lOQod1gf4dRSIk
uk13uGL9eYKQjdtUIgJpya1i3H0S/vCki3qpYPGrLrvQPzABO4MTbr5TJcLU
x7EmD+o4KPREb6mqE+HxYEDnpfIxMFMO8XuoQQRcP//HpqxR8LrtN8yoRYQe
vnS+mG9DEPvNwzRAmwh7y7017l4agHs2p+v7dYhgk3df+GJUHxCJ1vsPAxHY
dKPrlzc+wTte0+wyPSI0ez0rovB/gtlgfUZufSL4Dn/8OdbbA3SfNEIiDIjQ
P8zeKW7+CYRUFKYmjhDBaGvwTf75XlC9I21jakiEatPlC6bS/WCxLtJCOEaE
Ly7NC5dLB8H35C5FIWMisAQFaJCnsPtCLXvBNRMi7Hf0PjA3PAb5fNs5l0yJ
wOXVuf4tagLqL21GnzxOhMWVqaiUonHo+fRt6bk5EW7ot15l8ByAZZXF01IW
2H4QNXtyPDuA6e7kmzRLLN4lVoSqA5Ug/n1Qc8OK+O/fR2vbfixzsUG2ffqK
v+MkcsDOFwmH7JAf91Z70jois9ulihW5IEvXXUvf4Yasvyvyb5A7cmifz8gR
T+QxO6OcaR9kvP02LpkQ5MBgurc1ociK6bQJauH/+X773z9HIv9j1T+zLnHI
BN71pjtpyMSu6QDaEuSnRq+7+vuQD913CuZQqv1n77wf+y4pIxfmZw4NqiDz
Pn6lX6yO/KNKhUtHF/kFhe2JjzGy1eTzmZcuyMlT9rkH3JBbZ9bMb7kjqy7u
f3raE3n3+p1raz7I1O3+YmIhyHuYmT/FhyLb7niUuBiGfJMNtK0ikDs4Br/U
Xa6FKQEd+7VoCtByXyraE1ULL9+eeW/1oRE0eTntrkbXwjLrrpzJ0nQI2lnB
MhdTCz0daXu85AKgkt+w0fxKLTRoNpYfWD5EmRIcv0iMq4XTYYu68mNCFOE9
kXsFr9UCz0ear6clRSl2IrsGYq7XgmFH9b67JxQo6WL4lKn4Wkj6oNPCJXyM
8kriuJ5pYi1Y8lMvlVmN6NJJza7V3KiFaJov5buuaIK29NWSncm1QOAzapNL
M4ZLMsKnIlNqYdvY5JkC98NgM9vkSJNWCytCHX/s6hRAsfiM47WbtfBzR5ut
zPPDwOWx3ZHpVi3g5huZepJUKStiZQ4pGSge7z+bOnDeRn7yYNn+9h3k8wLK
9vezkU37eu1E7yHL3Am3e5SLPMtJsa3MQ25/52Z7KB+5OIXelliAfN2k5KR6
EYqfB5PJyYZHtbAWkvSK1eIwxaBt0UavuBasbuGMWNb1QPzaTZvWklp43od/
dFtcAWj1FW2MymqBPqfzZKaAJIz97bF+W46Nz5kydJvpTyPleai1RWUtSNeL
b93W+NaYd1nQuqeqFjrT0x1DBlZ1IzWeW9lX10Ldx8/DZwePwKkNF6vhGiy+
myOCZ2iOg2YtnZUrvhbsKQOsn+3sgD/osSWVUAspOwJ7snMNKBuHjCzP1daC
l94npcQXipTe5XmLxae1sGn35HHHEzFKbWWqRQCpFpiqPhix+vJSbvscsvhG
roWvq/2PpMZYKUHS3SfCnv2nXqYvnfjTgKzwiP9EbCMyp/szc/om5C8izuaJ
L9B470ZozFlbauFsQoTte1oBSlVu0fH01lpgv7qpmbF+gJLiYHict60W6DLp
+U+OHqb47pozy26vheKvTjv9oszB5FOymdCrWvh2YGskQtIQ9mfKmeW/xhxP
CPRc4aQwWX4wlXxbC8R9A8+K9irBDHuwaWlnLUjhDz47d+MYpe3tTlPZ92h+
j5PIJjVdyNeMTpsof0Q+3FpgrP0J+VBhp0HkEvKDW3/dp5eRWa4oxFmsIE+6
3GmSXEO+u8dJp/MH8p/sRVVh+qeo/m/ukGkSRHaLMuakN0Jm1CeOCpcjhx82
W7nAUof+f5JuMZu+HcjpHht1umzIpQmFMWycyL2dP9gr+JDdXd4Fcu9CXlop
6g3n/8/4vCfyjHb/Z/zHknQ1QshCar88dwnX/dvv0o73r6JFkJUcHx+cFq37
t/+NCxG3jovX/etHJlEW60SJOmC81SsvV7qX0ssu5SC0tw5I5EGNYboDFPf8
3w1Xper+9bdlhQ+iC/vqQFtYONSuQZkS3lJ8zWo/9ryoY7uAToOSPm1pJiZb
B7YvOKYn1Q5ThML21SQerIP3sj4/f7w0oJQwb/KsyNWBeXasQZ2XIaVRtnSo
UaEO7sY52rE1mFJMGqNASqkOCGknLONdzCm9J6yLUpXr4EF6U95UjAXFfVya
cV2lDnrsLt340mFJWQrc8jmtVgcnCwoP9P+2ooTR97xrUa+D3K83KAN6NkB/
t0zxgGYdGKYahRNkLCF9X8zdDK068OnmzwjpMgMhss2vn9p1YHSun5IvawSl
JjLObrp1YD1dr9mofQSUhv++6IA6cP6Z1Sg/rgeNfp/2HjpcB0FE6Qt3LbXB
5G/5jSx9bP3V7N++/1aD3vTYpS2DOvAfllW2nFMGN3FbS6+jdTAo/KPsab0i
LBIO1HYa1oFD6Qel2BIFCDtKK6BihEzf1xt53xh9P/1c5dg2UzSe0K8rR3zN
0PNKku1KPx5H81Hcc5BV88R/5vuELqDAog40WlXTi/YdARO9/m4mqzo47Jf/
Xu3vMej9UKUWYF0Hffv3PJnIMwP3M1dz+2zqIDDV6O+zNQtY+mb/V9e2Di5W
/QrNW7OGsHi5M8V2dSCXt3y6RciaQs9P387mgOVTeDXD56+WlPSyAZlLjnXA
eqfroDbegrJbqzpt+FQdLIQ/O9gzY05RdHa0rXDG9ntNjaGIZExp/CJfz+1a
9+/8M7nCIBzhVgdOGkthlNtHKG6PaqaMPOpAR9nQ0DoMKBlfU++886yDXX0G
BUdealJadX2P2pytA/ygSZWjniplPdlofeBcHbA0fNlvwKpIkRrY+9jFpw60
/BNKLMdkKfZS205O+WL5fLUvfWePFOVG0Bi9r1/dv/5c3/ScuOKP6mWRLdcj
JKDuX78WPhXG++ciqq8TpSdbrwSheoxdVwxmvISM1+eUTA1Bpt5c6uYOQ+Yb
eX01Oxw5LPT6ZFEkcnmre+b+aOQhLj2D6hhk3cpfhfVx/+kX4xfcPyT+p1+Y
OI5v3UZuzlK7de0u8hqV9zBLNrJtzPt8vtz/9BfiEVfZAuSSPfKfHaqQG1e2
jRBfIkddCKgUbUfWXh6+nNKB/GyhVtDjDTJp+qw9zwdkwvCb7ovD/+mfHZmv
5daQzx6juXfvG7JU23nv7d+RH7ccZRr9geyhj+8z/oUs+UK4pPY38iQkh4ht
ov0tbNw4mrqF+qGbjgffz78ov0QbuqgetCRYj3j2Ycf5I5QxTR1iFx0Jyr0J
KnJ8lpSH5LKr2vQkeG+32a9grQjO6jutSxlIwB6dQONwUQWE6+LEeRlJQMNs
vt+3fR9lROXL1xgmEnDvPawUHLqXcp946sUCMwlS9PdEqz0VhVNKHel2O0gQ
/DKKcapKCATxyq4trCT4fENeI2rls+7goQJ5eXYSHJTzO2cwrAE51Wx/73GQ
4DXHYfMdrVxgLxfxbjsXCX48De08/kID+KumHwRyk0DH+0LPE41D0HfA2m+U
hwTRD+X781e14W45RduEjwT7Ln+6FHNOHmz3y7I+3UkC84jAbKdBNeArzR4S
4yeBnZemtu5HDeiRYqhIFSDBG2KBoFykHNx+fDHipyAJ7tWpsPFaSYO15Kix
pxAJNire+gjGSwJ3kYnAhz0k+Pp1pIDvtwF8FKub1RYhwZXcy59tzyjBrXwJ
UqkoCU5fMeBmOqoC2j33XdnESSD6id1dca8wZZpxJ3OgBAm2pX9SSFvcRknX
uonrlSSBfefH0Nuq2hTNC0yOWlIkuGF+elvemBZQC6/Q5e8jQZ77ZYtzPLZw
s/dXOf1+EsRddHwZJmhO0WQJtvaWIYEjw6Lf5o5jFKrO0u/OAyTYftq61qv6
MCXtotcjxYMk2NWWx96hp0XRePzZLEuOBD3T/h8PsqpQqP3267/lSXC4NOrl
1aRDlDTWjw9cFUhwW3Ro0oJRhqKuZ2r4UpH0L58mg1qX9yuT/vWbtBKdrDQV
0r/7rvrQU1hTJf3rPxPsh2bt1En/8jNVvyy9QQNZPURcQ0yL9K8fTZTljl/X
RlbjSlM8AcgpYbFX+fWRxz8H9owfQVY95rm34hjyWMRoJ4cxcvITu5Bgk/98
f6JLeMD0P9/nM2nXOY7ml2TccqHQHK1HJUqbn9ECrXesprbJ15IE/py94tEC
EpQkqpx3lxUJYo++rJ6i3U9R5i/lUrFB8f1sKlafc5L0rx6TYu65b9li8d2t
ihM3AIoygWfHGXsSBAoqtqXJGVJGp1MI7Q4kGDAQW3FKPEG5Ibj9tOwpElTu
LKa8WjUFZfMY+lunSSA++k73KpcKZfTKj8p1JxLwwOZCK40iJbH24klHFxIU
Xb3AqVO0B5Tm5jcbXUmgZGrxYLrCAEaFPIol3Ekg9kqASrQUhESLEfPEM1i9
W9b7tE+rgeI1241FD2y+h0wMZRMlYKTu/UNLLxK4/7xFn3NaCxIXjIyeniWB
M+2gIud2ZVAUaV4R9CbBS46Ew1x1OjBspZUT44PlX6ldujr3fkiIJx6m+pJg
NXtUK6nHjKJYf3DeyA/l0/BScUaVPwn9/3RiolrcAcgKJ3MmQy7+5/OGZGW9
YGT55IDej+HIsRFfX5+8jNzlHUjpj0QOMAouHY1BxjOERcxfR1aOjRGmy0DW
uJTmpVCObOBS+f3mILJ4bAPLzyFkmoK3wu4jyA0Ti4bKY/8Z3+tgVv8UspTf
EzWxr8j0aY2mSav/qY8n71zW1khwlAN/r6dCn9L0fjTo9DqWb28smG/pACVv
ZTnh5Xes3zE9sZTvZYJIrr+5cj9IwF+SkiDHyAyOihw1WT9JUCxbd9GXwAfq
1iKtNL+xfu+0xWetpQq7guX7vf9g+6cuZOVqrQ7fb8Pix00S7H3YbXkr8CD0
1J6g0f6L9ffwcOlWc3XA97rwPqYhQ4L8IZVwOXVI37ggzU5Hhl1/I6yDjh8F
f/5Y7dBtZHBiOsAX5SYJZhrpFmP0ZOiWPzdcyLTZKOOY72G8nQxemrwN9cuW
wHS5JgzPSIZM4TuS5YnmlOncppTdzGR4c2TVzCLckNLa0JV/jYUMbIoE3ulP
epTCkTHi0g4yHPk0lWjRrkGJ3VrpsGUjA1F7TMjYV5niLEI7QmEn/6s/bT2u
r9Kc5H/vj4JuYgwZXGRgsrmlbPd1H+XnFQWB39xkyIrhCOL3laT0Fx4+6MFL
/lffT1ssD3fykf/l622q20nVXeR/7yOBDIHeD/mRLaTiopgEyf/6hdyxjFsX
dyOznit8PCiEvj+fiCcbCCN3lDV3VoogF7/+OM4nhp5/bWFiPVocze8M6xrz
rASav/7BbcKWe8n/+reoOY9ivRT5X3/a8pcwlJBG8Ri+qeSYsp8MP1aP/gmW
PESprzHwX5chQ8sZsTetZxUp2R+s45xlySBkqnz4XKkKJWT1zN32g2ToO+9N
bxyvQbHhCS4/JE+GIHF3+7MFuhRF5WuNOYfIIEGYcrM+p0/hPHn7I50iGWbC
l1rYbQwpy5ceTfsqkeGB5xmuLH1TSudd4q8eZTIs+HEV/aywoCw+3MV2ThVb
f8+vqcQxS2ApixD5rUb+936xHz+ikKZBBtUC4QbrBgsweqZ3REyLDDf3r+x6
4MZEOdtaZEvUJoOt1E8HCRMuSnzndu9jumR4tiQT15msBY97vS8PAra+n1dH
Q3W1ofXz21S/w2TonQ2XvrjTCCZn5fNpDMjQH/L4VKjdMaBbzcBnHiHDtbtc
E29b9UD093qrlCEZuP62rm+lHAWgd+gjHyODddZPWfdKNXBma5gzMybD0ZyE
XCsrPYjcKfLnswkZit77XiGdVYdckTj2IDMy6H766mowpgH10lOi283JwPBD
eldHqQIMKBgp5Zwgg7YKWxH/lgr80Kw4KmtJBknF88o/RhRh5xF2e4oVGaB5
baFHRhtUjl/0sbIhA+d69iLVRQdsbHsip06SQXn88ISOuQoEuqjdDLMjQ8eS
yeYuO1W4de5ewQ4HMvy6WERh19kLNRc3CXmOZOBwfCnse10D3ke4timcJsPj
u4LpycLqsHy1pb/ViQwZdwZFbT+zAGuq1IKdCxnC9uuSLh/aCQf+L08CsP2W
if3qYLk/BGexcCCJHz9Kn+wPfmK5Pwi9vzfnWCI/aKhPIhFkuT9weNCzLIog
P4exsjSkZbk/wX0qgBiSED+muhVHN2e5P24gCH87CDg/xcN4WcpouT+0S/qs
gK8nP+TM22tdark/hIwOlUfFOD8C1j5+8Gu5PykHvoPF7Po+Id+hkINtuT8O
GzcBYVkVP0DoBKMWb7k/QOeDLusFEj9e8We1qXC5P7zOnoPQ+/C+ffrKxzxy
uT/WGAIwZWs6P5wDLtrPc7k/dg48/Fe6KD+7DJHsYnW5P402SYglYBq/2hX0
/vV2uT8nHeyWiIQmP/geVxGJeLk/mQ9HnzmROj8XKLojHHq5P4KkGDGZiw+/
NjEdNq97uT8iF0C4cywWP1Q6gEhCfbk/hLgdwIBGKT9zQ+Na1X65P0z77p8X
WjE/kkxGbWiAuT8VdIrhYs4zP7FVqX/7gbk/p+QvhusJND/QXgySjoO5P8gn
HkvpLjI/7mdvpCGFuT8uYf/KEtQsPw1x0ra0hrk/e3bXlgXIIT8sejXJR4i5
P0asKDXfSPs+SoOY29qJuT/VLdh5NW4bv2mM++1ti7k/W8+jguGuOT+IlV4A
AY25P+M0/mLg8is/p57BEpSOuT8WiizGKfX0PsanJCUnkLk/FeZPuSlkKL/k
sIc3upG5P9jL0i/i2Ck/A7rqSU2TuT/PJqnD1UsEvyLDTVzglLk/g7K3r202
Mz9AzLBuc5a5P22m9Q7UHgM/X9UTgQaYuT+Ox1PV4GQ1P37edpOZmbk/ngjP
rbUaDj9JnFHh
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxM3Hk0Vd/7OHCEJEWGQjInZJ5JHkOZyRRK0WCIIklSmVLJTBlSJFOuebj3
4ipcTXhrkilzhnuN1xwq4Xe+a/1W+9M/rdc6zjl77+fZz36OtUrkwlUbNwY6
OroaJjq6//tbcicHow0pE+j+/58Sctm7pXpkBX+Le0nvkDUGoxm6viAblTPR
O1KR3W3XN85yvvjn3PTxNc8ryOypQyu6HFn/fOP349mQDuRmseGST1HZ/1zx
7uFShHbOP99X26XtsYl8zPewhQMh95/ngw5d8L6Zh8a/Fbwxr/7yn52Nvc+F
zyDfdNVq1irL/2fGv8sTeyqRE5NKWaYIyAVvhU2f1CL3CG//vPw+/3/Wp6O9
pB/5z0nvIcEduH+OmJXYWtmJzPlgWOjzbmRpou35O9zIpzm1KN+FkF9/YZ5O
VEM2dm9kvaSJ3Llx6zBoI9NkZq/M6iELxHTMm1ggF4jGcYhYIau8MlT8ZYNs
PlXrl++I3BN2PSnYCdmVV5Zo54wcZJS1wuCKPGR8veWjO7KeqWF6sidynhmf
z9krOLiilLuv+nAdMFvQdCWu4oCQLRURkP4NLlmSueav4SD6jjjr5Lc++Hji
8XiNPw7w7LAe8mkY5KzdasNu4kBLsU48ymUMEm00Yk1u44CNirvsY0yFJdud
LpzBOChYg1e1WeNw8uSQYn8oDn7ylV3Gv5sAkn0lY144Dq5tx73GR00Cv+P9
71ce4IC9XzPyqOYUBJ1yKFKNxIGLZ1rVp84pGDotHbwZjYPYYK7JeJgG3TMb
J5rjcLBK9zEcVzANuWfbRBMTcbBtdEFmiW4GmF1yVxyTcFB82Pz7AdMZuHQu
oEUkFQd7lFaz9t+fgdbzJunTaTjYbZSbaFo+AzIXBXwI6TiozGVYDpicgXjX
ed2gTBzA3++JI4w0WHR7y3U8G5v/BfW/ZvI0sPNIGd+Vh4NhC/fr+0/RoPrS
pdrufBy0bNcv3XuDBrxeR2JfFOJgTlY+bTWRBncu73a5VIKDabqGe69LaDB0
ZURRsRwH1wXUlpJe0UDXh8j4pxIHraStercWGuRcffj9LREH0hGJSStjNGC6
droopgabX7NYBWGRBpf8ZIPtXuHgx9HsE5e3aNB6nc7qQD0OPjSr3xHYNQsy
NzpEx8k46MPTaTfzz0JCQP5K2Vsc7GCiS78sOQtLN2+13PyAbHfLPF23BQcO
b8Szd6jNQvVtIZ8dH3FwRMbEIdtgFniDlnTbP2Prs1u5Scl6Fm4Hf+BKb0Me
DEkbv9iBA/dfSav1zrOgG3a5VqYbOeeuTuxKDw5yw3Ys6l+ZBff7FMWHQziw
jTjQ8ObWLLQ8qGG0GkE+/DD6Oy8FB4s+hu5aD2chPvJs0cg48kKUQnDRFA4u
u04sliTPgk3MNqvrNOSq2G5R7Xlk3vjCFcYlHIg9tvLky8HGnxDU8vkn8kDi
ifTUNRxMnCN3hpbPAjwW9XH5g5yTtKIruYHMmNLCtbiF7J6aPl7LUAA/K521
h+tm4b8nPrXhTMgyT/VizViQ459xu3DvLAAePqMCrVZsPukTioO7kG2ev2LM
50AmZsZ99+FC3pd1rkh9bwG08YQKJ3yfhSZeA56jfMj+jw6G6Qsgi7KyzBgJ
IbeFT5+0EC2ARrP1kkEKNj7/8sOOksiRbv70F+WQ1Ybsr1xSLIDJ2syTEkuz
QLHX/O6tgvz463796+rIusabJYFayL+kIx3jDQvAeVFL1HNrFvJzvd4lmSDb
CVjIPTVHZkiRf5p5ogCWTRP589nmoGIXJ2OeDTLbVndvmSOy50J6ea0zMq9n
CD/5fAHsE7A0HOSbg6aRcw/euyL7nzZY+M8DWbTjoNNXL+Q2M5amTm/kkPfT
Cn2+yDJHP6f/uF4AK9OcpbsPzUFfVTkzNQBZDec/MB+E/DhNE/8nHFl3j8AB
ugjkuajNh0xRBVCcfcVeS2UOMhhGllhjkc3uvDvLkYBccCVSeX8KMqOzxQ6J
dGR8t7z/4cwCGGjsMTmnNwfnTnD+UMhG3t3y00QtD7lO9zvxCK4ATlVZCDzE
7udVyog2LEX2Fzt/zpqALJph8NG+ugAeD3fjS7D727gl1M7UIofEsWSfr0OW
YZ7Z6UFGfv5x88Lj7wWQdrco/ZPlHCjco6tRHUR+r8Wws3cUOX7vtqoiKrLj
0jaXoElk0S+MOyxnCiAlTGxo3GkOaIVMBKE5ZC6+HU7uv5G1Itm2lTIW/jOj
667SkO3IX2C3gxVrISyvxd5dvzQHafvZ6UV3IZ9fYy9eZkf+WbZnK5UHOdKd
y1ZrP7KNPvfGTsFCuCrfdsXozBwICPLgBoWRx3/zWJeLIZd37V0PkyiEpVid
DCfPOdCP4z0hLoPcfYw/t1kR2evv/jUvdeQNwgGz3UeRmxIEV34AcuJloReV
+sinjYRN7h1HFhcTWbYzLgQvtTYVrwAs/x6Lp6fbIvvRSxqMOiNrD0rOEs4j
M9dKPXngityWLK3n4IH81PfwjKRXIYh4lB29fg/LD0lZ+HQVufGHXNLVG8jR
r+WP6gUi2z1RmOC8UwgvAqWEh7DnCV5XfEQJRp60VDpSHYYcxKyScCoCmb1B
dexvDLL4HsODOxMKgT2+IXMce76Wq70H32PkEzXuhYdSkF1Zb86opiEnVDy5
apOJ/MqetOyTh0z923MzpgiZI/f3Oq4CWWJ1h041oRA+0A+kTCXOwRET/rD3
1chWGdJv22uR3ee1GEfqkIP0zQznyciPUpwiN94i509ebt3ZhFx3JIiN/79C
2EFtava+PwcTIxmJal+ROSPruW27kCX7P9uf70E+KjeUdrUf2ebuXF/wUCG4
890R9H00B5c6NwViR5CTbgtlF0wgNwjrHvwwi8ztfVd28zeyV+1bVXXmon8O
Y+u4eXxHEUTb7Vy9kjkHKS5jtbZsRdCwGrC24/EcFOGX18+zIzcyMer4ciLP
FIu/jeVF3mtz3LBQENn7nqlH3Iki+J1b97Ya87GN5yfiTiIL3FxUj3NCZlHZ
LxPnjPxz4Zhw3Hnk4VIf7jhX5E9eaSxxHkVgfKmVD/9iDvIoMwux3sh3nKE3
9jqy+37Pz7EByDY9j9/E3kLWSamrig0qgvFiH/GApDmQthkvjA1F7j0edzs2
BjlSU8Us9gmy/+pZiH2GfI7wUDn2eREwlIan+2bNgblv5aHYLGQN2f79sbnI
4tOMHLH5yBw4OcbYQuS/Fx1/xZQUwRax861RMpZfwuG0mHLkVG6p+pjXyIYs
bXExzciC4WIBMZ+RV9YDnGM6kIdJWTYx3UUQ+LTyuF42tr43Wg1jeotgb5mZ
4eGUOSAp/dSKGUDOmz8gH/MD2Xbs/Vb0DDLD98tt0WvIc0kp76P/IPdZkUnR
G8hNu6ZKoumK4fNq132xKOy8beXMjt6GHH3MPSp6B/L5htpr0ezIl4boX9pz
IvtumvSI8hRDX4TaKeHUOQgUfLxzfh9yqE6fzmt+5PgQr5e2wsjPG/7spB1E
zhvSB5JkMUg5/2U4HD0HJZvRfvcPIxMFO15aySG/1tnfK6CI3BpSDFVqyL0N
R/IttJEnNz+yjeshr+mcuR5ihLzpnJdvaloM5bImuQYh2HkQSuvda4G8+4XK
rrETyDzkIN1yG2SBH++v3zmJLL7FhjNyRJYROtnH5VQM6TFcwQYxc6AMz3cN
n0XWD5X1D7yIbE2u7+PwRHb8wbR78DLyuS0LvUKfYojYYBX0CcXiI5Tqf+Ma
8lUYwun5I4eE+uzuu4UcR9709wtFztiK72d9gFwMQvq50ch4F48bV+OKIbtF
wzf/OnZehJYXHElEfvtirX97EvJ/ZGDvTEHu2fp640o68gScG2DMRp5zKWD/
lou8Grqg/zy/GKZvBzMXhmHxeaER4FmIzNQYVqhaUgxczwSWlvznQEw3O8C9
Blmv8Y3Bk7fIyQ587FkfkCfnfPsKWophwu2lmSnWPxyJaHlZ+RE5/oDwtVdf
kFXMv27/1Incdzskc7APWZaz23N8EDmsUFZ1fhi5U/cB3a+xYpjdHfq77Owc
HOoZ+Eg3gfyFOfYC5yyyv+qR32LLyM2fHr+XWUXmd51OUP2N7L2u56TztxgS
Cnwnaryw8+TxUwmjrWI4L/kzR9YFq89vjOsdmUr+edfCmq3XTmSiIG76zh7k
0xb2d+P2IZdSSs1T+UvAJVPEr8J2DuiCmHhfHEC25To7hhNGzi8illWIIZv3
Xjz+Vgp5eTvXQIc8suELL9yAUglwnHPQ1jWeg2dqb/2oqsizn/l05jSQdd2u
7Vg7gjyeJJzFoo8c+/arGr8x8o9ThxjEzEpA46HK1ID2HCgthnw+bIkcEdmd
pmKN3Csk53rUDlmm5oG8oQNymOXgH8vTyB1UlSaHs8gSwbGPzp0rgTy5A9YZ
Oli9Lz4i6eeO7Nc33XDvCvKHa/rRsVeReXc8O5nih3wla1E480YJ6CzzMdkr
zwFZ3YSWH4js7v4rnBSCzJaC42u9j3wn4YD4i4fI01FJcv7RyKfu79A0iSsB
h8iPhgKSc9ASEmogmIicf/2yY0sK8r1LDt5+6ch/jmx/w48vgcTclc05Aez7
Vi344zyxBK4wpu39sgfb/wrLXe9rkI0Oew4/fYVcffDHtE898kHhkysGjcjJ
/B+3eN8hM/Dosc59QL7GXsP9rqUELpfOBtQyY+ftDlmhtI/Iloy5Ut5fkOs3
eVX0vyHL/I7X2ddZAj+Vq7f6uOYgfZnRhNaNzDp32/ZNL/KtyYWzqQMlQNmK
7OliwerJqPulyz+Qm77bBPNQkfM+6TwmTyNzNRMzkmeRw99I4zwXSqB8qKVx
YGMWFl5nVeosI7tU763jWkX+UhHbNPkLWbuY4Vv9OnLxy8D+x5vI/FlzVA/6
UthWfz9n/v9+v5Hc92fPduTuqCb2Ojbk4/e1+R+xIxND8OLunKVA1t92affk
LIjekpQ/woP86HqmJgcvMp0P9zEqP7LPpWjLVweQBy/QnUoQRjY/G3DRVawU
/A+8XdcYnMX6wwuBu6WQWYws40hyyDf13j+JU0QeP6KVc0GlFMotbhhfbZ8F
O7WKEnV15HcKEjVsWsghOcWnBI8ia3Ar/pXXRV5+UJ2pZ4BctnZEz9awFPbd
ZNasbJ4FsX7DiABz5LQG649PbZBtFL57F58sBR3lZNJm3SzsyjnDUe+I3MI1
iv/ihBz+wOPksDOy9hptbfF8KbzWrQpWbp2FtUt+z7a5IeP71rR5LpUC7VLs
mQTyLFwxD/4hcRlZooEhXMMHeUQ+Utz0GnJG9q5mJ39ke64kT++bpeAQtT11
lTgLH1eflyUGI+v2FSwT7iH/MZNL/RBRCrkeDHs9i2ahqp6g8T0K2Vdes38y
Flk6uyH4TwIy96XO7XoZpaBZEt0y/gLL595TRTYvkKPMfpi75pTCvMGPp1dT
ZuFYvev8jZfIm3LTjx4WIE+ubO3/QiyFkXdXA7bFzEKOx4OGHzXIZ3tZzy++
QuY1S9y2rQG5vY4nn/sNth5f+01zwmYhVi7dWOI9slGW8Ix6MzIDZ36cSSty
3b3DCk6fS0Hy3tI284BZUPRQuxHSgZxvqvcquxf5XF3TGcJAKcz2VcbTXZmF
/XLmW+9/IHe/+JbdPYqcuMfh2CQV2fTewPjvyVJYEjPsIZ+fBaaV81E7aciN
7hOHD8wj3+658kVuCdntRbjjjc1SSPbc8SXKYRZWb4uUBtKX/XOEfSN9EGMZ
OE6En3W2mIV9Si72oduRC3ZtFoWzImtOZWw92IXc+v6IXRRHGUQGufsfNZgF
p6y+glguZNqdWxsJe5GDHXhtkviQdyvX5KcKlME3kWS6Q5qz8GK3/fpToTJI
ucb86bbhLChM/zzxXBT5zYekvKyDyDbZSr9zJctA6zTP7mvaszAW9M0CdxjZ
39E3p0gOmUmFfa1UETmVvcysUqUMGIYN0q4pzcKhGfMsojoyqWnmZ40W8rqK
h9EHwzJglGE/FSSJ7ec9zrQfzmVA8NfVrOCeBa7Zv7pj55HzWtJTxl3LYI7+
qlov6yyo5mlNT3kgN4X26sx6Ie+Ys3v0J6AMdoa0HmSjn4Vn/y1TN24hS798
rEUfXAaz7umrxms0eB2mmMAYhmx+pm1s+z3kxFYzNZ4EbL0DrNMSZmkgkj8d
zfu4DD7I3PvzY4wG+LtRP/anIBuclVQRSkPu1GiOFE1HduN2HzyYWQacTrNs
Wn00WJ1nVJLKRo74mBshk4e8D6ffL48rg/pKP/LzNhoUhI/IKxchaziH3Vcr
Rf5PU6hXswL5NE+D7FFCGbRa7mfY2UyDzHuaYabkMgi15P5wt54Gpm9Xufjf
Iq/REXFT75Hz4NqR2uYyuHO2/Bc9kQZWIXJfI1uRGW6JCTZ3YflsfiEupogG
ZTXDlak9yE6rz4+795fBRF7TdcFsGrCoOvWqDiETr/N6M40ge/jsqjOglUGT
7tOMV09owF3aeoJrvgwKRmp/ucTToHHm4djoIrK39PGb+J/I/J4MO8PXkJtw
5EzrP2XQ2yp9a/cDGlwfD1IS2UAWPqjVtLCF/Oni2qlGhnJwPMPB3nSHBoE5
xNkEJuSDI9fuurAgtwvJ88jvRA5xphVs7iqH4+UVxRF+NFA4NbKmzVcO1crX
da08aTDwJDOGTQA5qttJaECwHH6dGG4QPUcDNR4+QrEI8qhtt+EdceSEx0l9
poeQtb9Z+fBLl8M6XTbvpj0NJtl3M0zLIKdYfkyplUfWj4uUilIqhxNBITBq
QYO5j8frHVWR01m3WUtqIBubNFLWtMpBquP8wa/HaPDzYXBg81Hk7CYttie6
yJZMv164G5TDz46jykYmNPhjUKWsZoicH+7XzGSCbPtG3qnLrBz4QiUHDXVp
QEc3O5dniVyiUxTub43sGOyx95gdMlOdeBGXQzlovHrDc0Id249/Ro6OnUJ2
1nzxDX8GmTXwjFu4SznWl9z96iJHg5pqvt/WF5BdV7pjRdyQOVSShRc9ymEX
79bfwIM0qPezJjZ6IXtV7jZO9Ebeu/Cx38W3HJaVZhOfCdDgnVzUVfnryHWU
k+lHApCJz0SbjW6VA6/EgZD3XNh8reaXbIOQ85jrBM+FlkPdt6CaVVYaZNRF
ml4JR072OxkQ+AA5VlI0535kOXwu2qugyECD+0NznxNjkA3j7WSWcsuhgMEq
Zc/kDLTOCk0RO8shUpUhX6VkBjztnRQP7K+ArFfjsn0aM7A02uYeJYAcdNUw
Y+VABdTsD47vUJiBxEjF7V+EK6BDt5+uU3IG+Hlw2lqiyHnZAn75YhVQf+nl
7X7hGZCTe4zjPIhMerV9MESiAhqYUhaneGdA3yiYc+YQ8qeOJSMHKWT7c5eC
30lXwNiDQKctjhkYpg3i5WWQvW7ZTqbLVoCogHLZ/h0z8JPpvwMs8sgsQsTI
YcUK+BVV90OHfgYKJtiGc40rQNXswCGzd9Og5B/Ow2FaAdxJtjeLXk9DHd0v
0yAzZMM477BJ8wrg4TpmyEGchja+sSo7ywooufQ6OqhkGk7nO840nkCmKH0R
lrWuAF/3tCPzedPwy6w2hsmuAmapH09cej4N4T1yb66dRGZzy1sdtK+AxaeO
DRMp0yAcknC++lQFXB2xCfGOnwbjCjd1D5cKSP2l8TUmdBratfuvdJyrgAC7
PEvxwGk4859VDlxAHj/Z9L34YgW8Zwr6+9Z3GnxHj+zidUP+41Opf9+9AiyO
bUlz35yG++sSgQse2Pt+h18kX52G3ZEZpWc8kdO4OcdavLD53LQo9b00DaLZ
D3lVryCXyG5YZHtXwN+f2+gkz0+D2iu/e7uuVgD/aydb6qlpaDScJN3yRTbt
ODtHvVYBjzf4XhTYTEOnS4eYzXVkZ5rxqQb/CiggcPVfM5uGicCGeOmACrhy
TXZL9xg231e6zxNuIrevvy3+GVgBPnpO2/YenQajo8dfnbpdAT9Csn4sqGLx
DGluabiDrNho8l0suAKUK9hjv8lNQz79J2pkCPJ+A8ufs6EVIHWhlY50aBoS
77cx2N6tgGPb6NXyhKdBK3E04E4stn4uP2+lbkxBLI7Z5VNOBbgw4xrO4qdA
odtS3ucrll8X5aY0WafArKMnarGtApp+HQzexjgF7m0XKP7tFQDDrCXfNiYh
ozXg6Z2uCigUmX13Z3ESWMiZ26L6K0Atyh2YeydhGDf3PXcC239r7zLnCyZh
PS9Q6dBUBXi7lJvT5U7C3hyGuKLpCviowQY8zydB8UXshCytAoQ0vPo+5U2C
ecZe/crZClBi7e2eypwEj6dZGSrzFfDSoY1559NJCE+VXqtZqACBdBs3haRJ
eJ5EtD6yhO3nJ16zp+ImgZSoU9KwXAHnPpa7196dhI64Fmb9lQoYPLnfcv7O
JMxF25z/sFoBDwSfmkkFTMKOyIHXxr8qINLyzGkP30kQf+C+99NvLD8XXtwo
9JoECF/wPbGO7Zcf+WnzrpNwOvT2x/a/FTBU87pB02USbgQxSthvVkDbe4Wx
h6cmIfFWfFjvVgX0vS7iVrCchHmBL9+OKVRCDb2AX6DfBIg38znmRlfCYp66
svEnKlyv1BI8HFsJD9V3Dsm9p8LbdCcKPq4S5IvTwgXrqMAREVSklVAJlCOO
pXwkKrj4Pvd9m1gJ3/IiCvdWUOEZn0jUSGolPFPPE76QSAX2K5KvhHIrwaGr
rEH2NBWc7U3CcHmVoF+5MzjRhgolul6G8vmVgGOvt1s3pcK6dAxbDa4SUl2v
qvsYUMGUp6Rdp7ASGkMDC4qACvcb5GfOlldCnsld/S4RKvzhUBfIeF0JdTbp
9C1zFDBedxgVq6+EiweDZ55NUOAJNbCguKESHrnniGynUGD861Mf5cZKMFe/
z0IdoIDKq1cqr99UQr2JnHJrFwWuXtSx6GuuBO7p3M/i9RSgVB0P4e2sBP/+
sj0GiRRQznI/ltVVCRlZvJw3oigQHv2QVfJ7JSQ8r3/CEUEBIZf/UtX7KoFG
NyQ7e4cCp1ksyu2HK4FjZWW13YMCBUveN4ZGKkHk99x6iCsF1gbij7iPVYLb
t8CR/rMUMGwup5+jVEJ7hyc59jQFkivbmm+MV4JKhpDZsi0FxtIX4zYmKuGy
r8VqgRUFlCI47R5MYc8jvNQ4Z0GBMF9l/l0zlUBMGObgM6XA19N2w8m0SnBd
owYnGFCA5c/dUJ65SrjNLMlhoUsB/aflgqnzlaBJOKLMdpQC1d9Zzz5ZqoST
wd0SCWoUWAjQ+LvvJzY/t+GfNsoUkN7rnp62UgmywW8seRUokGn3pvfpL2w9
twtm46Qo0LM8F8j/pxJOmR16ck2CApxJArzp65WwclaM+6gYBcyVTGv2b1SC
ZfTAXlZhCjz4dtM+Y7MSivwEM3sEKNDg+3JFgA7/z7/YO5Kf0+MhZHd1QQEf
Ba5YynVkMuIhtuCa6u29FMifdfITYsbDnwFhAwsuCgzHRu3J2o7ML1NTIbwD
D2FPkttEOChg95FyIpsVOd6Lc16EDbllh258zi483N/zYmCNjQIMhd6yYuzI
R4zTP+VyIJdFrLK+5EIW/WBtkr8X+Yxr6KQELx5O7BOf99tGgdRtpQ9xfMht
OX0SkvuRWfVZmgoE8JB7qOrCc2YKHBtRdZMSRA4Ju8hYJIQH/15W+/92UIAk
9ChXWgR5qaFBv1gUD6tZdq2r2PtlnGkjh8XxQNJ/13gQm5/7Bt/dkoPY+nVF
atlj65OVYSQsewgPF973aERi69l75Aa5VBIPWm0Tda+x9ebsz3GWk8YDMyet
eQGLh/ntto2yw3hIdCbcdMHi2Ug6rF0hh4cPs2Kce2Qp8MfhVL+CAh46K3LP
ncDyQ2Ut4nalIh5UWvNL27B88kkl8ikp4+FHFKeBI5ZvBaqjJLwKdr8V2+Fx
LD9HO9kdldXwYJu+uhuPXRfwP7pGUMfD0TMKr02PUcCe63KqiiYedl7c1zuF
5XcCPk21SgsPo1QxPMUOi591U6eqNh58VoP5k52w+C0uX68+iocnly+l4Nwo
oJ0owqUOeGiOKmNpvUqBAPkT+BpdPFgJxj1dv0WBii9B1hr6eIiTfOetfZ8C
095FCyQDPLgfTC6OjaeA+K6eBM3jWH56tN6ipVHAuYRJ/pUhHm6cqPt1LZUC
aWbKX7SM8bDssLvON48C7dPnvF+b4GGL7QhfLJ4CbNHxbNpmeOjArWYqY/Xl
uFRdcZ05dn3ScvXuR+z6n0AvMUs8DOrd+T3bS4HOVlWp6BN4CJ4pZg+cpEBG
+tLEghUe6i5n0vZNU8D1Snm+gw0e9G90Xev/hcX76BW3Bls8XN5hb9mwnQrL
u6TED57EQ0AzfrFxLxVeDVFHY+zx4LadI71Sigrh5TnZSw54KKOVbfUfxupt
mMu5U6fwkMlYkyeO1VtOawGhxtN4eKwTq5SD1evspZSMuLN4YG3RaoEAKjSq
Rj2RvIgHPiNSYVcDFSKZDe0TXPEgKoFffNhEBavvDDyrbni41/74JPswFXgL
yB1nPPBwukDR+9kKFX4EBj1+dwkPEl3XRlwYxiHfRNNa2gsPGkmyLf684+DD
v8r+6DIenMRH48yVx0FtBv9l7Qoe1MtFPu/QG4fN11fjnH3wcDBCc5LBcRyO
6NvfS76Fh2odLu8utglg4OLSX7+Nh1+G+ZzRghPQOvaV7kIQHj4JGu8lKEzA
Y2IsuSUYD/8VzGnWmk3A6QcmIfKheLAXmIr/z3kCRO2Zj6aG4cF0Yrj2FHZe
Tkm8W/97Fw/zT+96OyVPQMVa6KuL9/BwW/5SCX3hBAS2aN9qvY8HgRm9FNWG
CdB9+ltdMQIPst+53/75PAEsXtWrTx7iIdA8zVWHMgFPdir4u0XjQXVc5qA1
2yRUW4pdpUvEw7cT8X98zkxCiNCwrMcjPNAnXvz4G+sPDBcyaJ8f44H/sJjw
iZhJ2P3mVLFKMh6e3+udVcyahK5He73SU/Dw8T3POj/mjAsdkgxPsHjMvRJl
qJ4EV+XEiUtp2H5bOEp78GkSZBgt8r8+xQM3R/ep4s+T8LNzh5taOh6OtaSW
W1Mnoe5lk9jzDDyI/LjiYzsxCfcC7o1uy8TGN9iiqf9rEkyNdLO9XuBhqbDV
n3t9Ejh5N1y+ZeFBUEP7PxrbFPRN1gpq5OBhkyK6nMUxBTm1AYOZuXjYIBjn
NnNPgVe0cgbTSyy+lyvaDkhOgaLTwukr+Xjg4ahtSRCfgswJotsiDg9sC5Rf
nNJTwOZ/yzegEA8H4s4eFz80BbfpdO6sF+Fh4nx+VrLsFEzGMkSElWD7Q6Xo
l93hKbDna05kKsNDTuzAy69iU/DuZUx6dDkeoDDwy3FRrN9Usspnr8RD5I7/
nu0Rwd7XwF2ZjMdDeIUez8W92PvMel/zEbH9cFDZ5zHzFNz6/rwpswpbL80K
z+OYxy9e+CZWg4eTLDyKAn8nwW5BYqCAhAdD0VvpgrOT8DZoZlz2FR486jjC
LMYmQX5HxSL+NVZvq6VhoBOLT4r/X/V67Pk/Ym75fJwEVlHN7fUN2HoynWhN
wU9CYNnGHv1GLL6WVD//wkmgar0VaH6DB4bkDv2PiZNg0xxxyPwdHiSX1XnT
giah0dZM6dt7PFTglcY2Lk5CwIOzZ6mteBCbKrgYyzoJlD2il7w+4SGVfp8K
LE2Adea43/xnLB9OijavD05Ag3RxsP9XPHyP9/Uxrp0AmZqrkb/b8PBsjxPn
dN4EPDNQSQppx8OXJYOI+dAJ2N726/m2Tjy8HeVocA2cAP8z9QWRXXiwyEuZ
MbKdgNHJu4Rd37H6GTVU+11nAqxuGDY87sHOH9moLX5sf9bT7/xvXx+2H7/+
V+m3Ng7S8V87MvqxeJz8cS/n2zik8ScPiQzioYn3UyelbhwszfN3qI3hAbdc
1s5iOg51PV7crynYz6cJcZRJjIOUm7yQ7jiWfwGE7Y/2jANjCEnFdArbnzdw
PEk9VPBjDYav03j4zSNhE0DE6k+qnqkdDQ/5plUfdr6ggrkY88neWTzsvxjG
1R6L1cvyVhfneTxcvf+oWvESFSS1E7zGFvDgNftlLQqrhykttjcuLeFBOkio
gE2XCr4jA9F+K3gw310jU7GPCkPe2Slrq9j+9nW69ZeRCmZ/3LKCfuFBxq3A
0fUHdn5HSBfT/8HiMZj7JPQTBSS45qsi1rHz8f34oeharP97QWjcuYHV1/O8
eY7VFKCXCfyYuInNV//clmkudp6StLt56Agw+eeBugzWnw4cox95Ro9s+u3D
jNA2Ath+6RH8G0SBmrPRq3mMBKgaHop45YmdZ9OW9NLMyI8DuNjKtxOgxs1K
18Me649UPNT4dyBHLb0694CVAAwebgHnDSlwv2J3zMJO5DCfC1VOu5DvyFT/
aNqNHDC9g1WJA9mv4KzK8z3I3u6VzixcBPBQatg1aUKBS+JMUde5kV1HHQlD
PMguWSWDJvsIEP1UySUZ639PO9OxVPEi2wvYKQnzE+A71/k/rtYUsO7DnYnZ
TwBjl6qJAqz/NrY/UXlekACvZmsv1mP9+jHu3P5PQgR4YHY1pjGUAtC+yqQh
QgCDx0XhbY8p2PerqUKuKAHEGO2J09h5r2aZeXq3OAFuHo95JJZOAUW2pfu3
DhLAXFlx89YL7DxuPV5OkSBAkKbINA2Ll2Tk094TkgRg6a9//fg/CogZzm57
LUWAvtDXt3d/oYAgo56cxGECNH65wmhBxfrXt8mOj2QI4EANe7cf+17hCZsM
/ytLAB8FZ/+HyxTg0NEu9ZAnQHrsB1l/7Pxn+5vwvV2BAPWyNzqH2amw/dUY
vY4SAYKLOHVfY/0AQ6C6TKEyAVQaZW8aC1FhUzXGnluVAMJ17OZzWD/wZ3ko
LFSNADKunvZn5KmwUqlUPK2Ojf9wy+vLWlRYuBrRdVKTAF+OPvyzE8t3mmzf
VqMWAeYHJeZvm1FhYkZWWkabAB3HT8SJO1BhtPCu3ZOjBHhx+dCSnDUVeg9K
FXrrEsBJ9hF1GbveORbU0aNHADrGbZZxrlRoy27bMDAgwD0/T8tKFyp8dBGX
LD9GAHzAZGXFFSo0HQi04TckALUtwMwa249v+z8GPTAigBIfa5YCdn/9UyHc
gjEBul8e1m28RgWSw/VvTqYEaJluT9jtQwUiT/N6kxm23vqhn+AcFco7+CWU
LAjAnhqVJHCWCkWPfKyeWxJARP7b0nHsefkn3t5mscLyoXNi75XzWP+za+/L
69YEOEknyPDemQoZHz2/DtkQQFufN50Hm39aVP1vEzsCSO2SM4zG6kOS0R7x
qpMESO24oSOH9VPxTG6Wwg4EaBraPPTOkArR70iBMY4EqHsdmqp2lAoP7rLl
rp4iAKPLw0/VylQIg3OfzzsRoNiuqNRAmgpBG4S1T2eQb77eLqrhjOx3y8k8
14UAmesqP/fwUcFzhSH71gUCPHp3YF8XFn+rSxfzBi9i+aT99TwDHRXU+t/h
9NwIIO+SVq6E5c8BS/Hil+7Y+oUbiLsvUIDxzf2yHZcI8Lkqdd54CeuHlamV
3p7Y+HY8DXuE9Z/f8o9XffMiwOkPZB25fqye8eWTVK8Q4OXOsZR+rJ/NjGWu
e+pNgO3i6ovP6rB6seVO3vAhwFMZmU7vUgpc9mt+e96XADYRFa51BRSwoR5q
+nCNAC6RN5pvYv2zhmPkf1LXCbCzLWzrzT1sf3yc/BTnTwDdSguRCW8KMOmY
tC3eIEBi/NeZCi8K0CoKO07eJIC0wHsxHux7ol2M9XttIAEUSq6oKMhh40v1
6jtwG3t+zqBOxS4KvNjxcfDuHQJw0m31O46PQUTQ4RFqEPa88OcUu/YxuDIf
QzEJIQDB8Z5SWPEY2FygTZSGEuDQV8WGvJtjoNllPrPnLnZ/SeKNJasxEDYu
nbsRTgCtDe2M5wJjwPx611LvPQJYcyzOD4+MYvvFZ+XoAwJcZz3NQCsZhY6s
L7+yI7D9tmhIzb05Cq+45P8yRRJg1DDk8weZUciKSNjyjCKAW4/BfxmrIxDx
e57hSzQBaEdcktSKRsD7ihWzUiwBSDcGH0leGAEtmz27/sQToGRh01fvv2EQ
/nCNwzkRG9/p7IhnwcOwXaOd6+0jAiwyrGvlKgxD54Ek/uhkAhRQ2tW3xH/A
q8TlA3Mp2HrHnqgvqBqC7G12IjZPCHDi6cUk3uNDEBlAFK9OI8Ax3RZ7+8xB
8JniluR/htVvMx5x7Y0BsDtz43BIOgFKh7/fe1w/AEe+dsmNZhBg+XYL7/F9
AyCqr6ZkmInV72dHjpnl9wNLVapq0QsCWFxu2ey42A/zh9Y0dmcToM3K1nW7
dD90P3PQ9svB5m+a+4iuqg/qdpGgO5cA7nhNq8ZbfZAbxmug9RI5ejnQMDOf
AIPhTHMbR/vA173XhKEAXXfo1bRwL0TWMX9m1VqEni9O/mMrV4Lev1PJyeFx
KQFwZzJ5Dnr3w1Le69OrZWg+PfsEnE9XEOBO8LdWWsIANEQHnW+oJIBvhq4u
09FBeLkx4CpKIMBQYotOveUQxPoevRRBJEAka1qPpfwP8Bt7fnm6Cov34dM/
aw4Mg6P9po9lDQH+A+/jsV+GAf5z9sOTsP0i6fN+yX4E2MqFbt1+TYBbvHJ3
2MmjkDb4sOVvHQHGXWZYdl0bg4NsC/tCG7D7d5Gvv2WnAF7L0YO+EavfMeoO
7dh5pePZWH3vDVavpzlPNKxToPWJJDPzO6xeX8t9vpOfCvZNiScj3xPA6mWZ
XQxWL0Z//spjbSLAivXC4s5KClwVO/8ztpkA1Qf7NZ4doMBf6/8M2P/D7peQ
/dVjPgaRYYpJj1oJEPb0wVKHBZa/g/RKqZ+xep1jKlmvNwwybF53eb9i+2nl
QL9A+BDUarW3PWsjgP226qdGKQNg6KklfKCdABo3YxOH5vqg/UnO1RcdBPAL
Z31c6tkLzk2sZJEuApzf1ZcbJd0DMz/9dud1EyBPLXW9Seo7BIr1n5XoIYDz
V7eHV226gdHGoLSgFzs/JL/RarK6IDGs+K90PwF+RjAX8il1gUA5l3npAJaP
bhOFLu2dUDB4J11+CDt/noqnGmd2giobZbryBwH8UyQN7jzohLda5loqI9h+
Na+NHE7pBEtPYlT1KAFCfd1L/cmd0PdEoFeDQoCFRDKeYasT3JvuS76mEoD+
z2LBpnUXLP2k3Tw6QYBtd+Miv1V1QajYyWbyJAHiFJ0qClW7gc2mfq/+NLaf
6hp/CNR0Q1rYQff3M9j7OzOpAYbfQbw8rspwlgBne6o6XnR/h8rBFcb/5gjQ
SRA8vuzXAzpsznZmCwTYelxbPb3WA61aTbmfFwlw46P9hoJjL9h7yi2fWMby
17Ku6AWxF0afpOq3/yRAWvOtn25sfeDTtPnIbpUATKd+Pbkm0gfrP91HutcI
cLCu1e4L9EGk2FeFU78JoJhnqOvF2QfcNuph/X8I4GXMXhQ63wtZYS++nv2L
za82R0gvpxdkyrcLDW8Q4FrY7gFZhV4gDV71ubBFAP1jX7voXvbAcbaeegod
EetPVC3usfWAs2fBmaltRFgb4bL3/NQN0084Si4zEUFo9on3kHY33GwKXJ9l
JkKzaDebFK4LGFeGTX1ZiLAeW0igcmPxFTN5trSDCNwvHqks5HSCgE3llP9O
Ihhp5mxLVsLiG8anucZGhEPWka/6pjtApfxu5K3dRFAXvcvxvr4D3gxOfV9n
J8KV5L4SrfIOsGSzORSyhwh7n0zo4b52QJ/WqwA6LiKIN5Fi2pmw+HqKNoVz
E+EYw69NRv9OWHoSzcO0lwj/pTDJGIl0QUjTkuvDfURY1KrIf7O9G3aunCbu
4CNi3+WXcr4IfYc0sXfbYvmJ0Lm7V90wtQfEbQ7b7hYgwvU7VLt6d6w+4UXf
Bhwggp2UOIeN5wA4cvIr/hAkAk0mpZozcQj8/PZkGQlj4xWfiLztOwxx7Szs
FSJE4DlzqEEiZQQKlOhCeMWIIMs4x5HxbBTePl6jhYkTwTPrgMQHmzEYWJpz
mjpIhII6JUZy4Ris2oy3Wh8igm4yu9mn9DHgIAxqvpIkQp6TVN/swTGQ5uoq
EJXGnrdtSPbd2VE4dv3TvpjD2HXx6SA13xFw6XgXsSyDrbdaO5uq2zDcVn69
4iRHhIPWFP8Lg0OQnIR3fS9PhMgLL8QLpAehbLmwQ0aRCLDvVGjEfD+02Gbr
pygRIfwSSwjXhz4YJaRVbigTQWFPauCMbh/85UoUdlclwqngE1PF3n2w1/9h
whc1IgjE5zCfr+4Dxc6QTTUNInzQy++6WtgP5ioB3i80icCl+vmJR88AuCd7
D2w/QoSGbV/CP5oNQdhPVzNfbSIY/72URWMfhmd2Z171HCWClP1LSaP9I0Ak
2krpARF6xBdoXgyj8IXbLK1Qlwjn312PvNs5CpP++ts59YlwI596Js57DBi6
NANuGxCh+7yUswF+DARUFamjx7D38Qx/KQseA7UUSTszQyIw5I/q/6KMgtWK
0DuCERbvbwO/1kZH4PLJfUoCJkSwgIWZ+sxhiKjanX3flAgnGP5OXb84BFk8
zByzZkSoibgtfrusH17d2Ag5aUGE1UzX+EitXujs+jlbb4nF5+x/R2T0v8Oc
Ku2MhBVm2TaBY11dwJI69jHeGhuvUCd9zJ4uEF3t01qzweLTzuaQMdcJ2vbt
hS52RNB+llZ381YX2Ff/x9tykghFHKfXqgnd4Lv3zUMFByI0SQj8fo7rgegA
0mqaIxGqrnXml9v2w8vucjf600SY2sbIs6NnCBrVcJ2eTkQgM7Uxm58bgb7U
TIP2M1h+ukVluhSOws/VFLyWMxHSyyM9osjDsNshTiTXhQgBepFOCxtdIFlz
P3HneSxf7IO+COa8Bf19QVvXLxD//fv9Mzev+wxcRL753WvwmBvyY/UL5qXu
yCVPTr3muYQ87GD8dNwL+U8NsJy4gszNq36zxhvZpOfgyUhfZLzjtj3SAch+
/gyfKm4iKyXSP1S/9T8/37z191jQ/1jt76RLODKBe6UxJR6Z2DbuS49DrjZu
bev5jqyQcdafXbnqnz0zfx26oYKck5XU36eKzP3yP/18DeRfpap7juogvyHv
KvMyQbYZq5/44IIcQ3VMP3we+f3EsuWjC8hqNKnqM27I+1dS7i97IVOYfURE
ApAP7NjRFXET2X5nXiQtELmFvW++5g5yCa9hg+VdZCr/yDViOLLggaCD/PeR
E0XwsdQI5P/ELHTNIpEZJCaXK6Kq/uWXtuQ93N6YKpiLdK9Xmc6HG9KCTkGx
VfCugu9N3/P7YDfZeJouvgo+DN1g1Am4Ckr5F0/fT6iC7Y+65eUKDpL3uDKf
ZnlUBWcCaTrywwLkBZHCU7GPq4DF7pGKw+Ih8tcfZqc4kqtgPtAhS7oUyGXP
5xyTU6pAYf5Ir86mJcQ5PXLkfVIF9bvcHn55pgxX+FQcM9Kq4FhHeChrrA6Y
fe92EH5WBZfsvjHcnVQF6ZRbDnnpVcDps7liMQ+ww1bAQfJ5Ffycf9mkynaI
PMlBti/JrIL4ULt9u+p1yc1fztsrZFXB4lJPnsQwGzk/ltGemI3W44Ep7qRG
LrIri+nJujxkgyaanW4+suj9BLv3OOThrU7bT0XI5PqbtlYlyJl3+G07S5GD
NOttHMuRndZcbAYq0Pi0qhhszuGrQMBMRe9SgSqZ9/pLawqhChQ7ysPeJlmT
1xSMrS9VVcHtcKsP3eHK0D03bUWrroJhoS1HmQEtqCqJs/IlVYFxsISGz5o2
JHspWP2srQKeP7czg0PU4Lpkx4nA11UwdreY/iPWbtuM3zjxt64K+9613a9d
ehjrc3hPhDVUwXhbmJyojjFwXHhtydiIxXf4lS33qBTMCzlbRr6pAkZrDvc7
8RbkL4N0lmzvquB9u3Gp9/uj5NL0XIvE91VwxOchznpYhhx7ytCCuwnlx+V9
U+ZpzWi+pl0x5gL/ofWQSpIzz2pFZrH+Zib+Cbnp014zma/IL6NrTSva0PPu
G58xVWlH77vAvGVC6qgCvYLgD/eiFch677NNtLuq4KzmbCA5+RhZOPyYSWM3
tj5SWzdqMvRhEyaMj/VUgWHKUY/Fs6owuBFl3NJbBTqr8bgE8UPkutcyxub9
VeCwJ/1iM04X0m99NWobqILWexZ+EsbHybfV/YzshtD4Tq1wG/X8QNYg1Bie
GUHed+204fAo8qrcxnFXCjKxSP/4lQlkhZzPBkGzyM8fbV0Yn0NmvasYbrWA
POaS0ii+jJx64OzRz7+Q/6bR1AQZq1H9Sdgp3ciPfD7YhIPRGNlf8t6dWBPk
iI66cW4z5BIphfqDlsirXXu9jOyQo+Uo76LPIRN/hNzccwu5KZo0+vQ2cq/q
koVoEPJmjJu4cijyHvUXCa/DkMVHe/4YhCOrxXG6f7qHbKJh/s3uQfW/fDkz
9kB7MALZJ56Mc4usBpbSb8Zsl7nJdzV/c85FVQNXO93iGXFhcjJFKSQgphrq
7n1P3NspQc5PuDK1GVsNhi3lh1JPKJJrtfLtHsZXQ3eQG6Fquxb5E/UHmT2x
GvaWdc6fdjIgDyXyHU57VA05WrRHb1zMyQtHbFOFk6phkzD49XenLWybiKUv
TK6GpM9vmdUObYe9j5uuKKZWQ5nWPvqT0qogeZSup/ZJNXDoHDjN/4YTtCY1
DfSfVoNd0j7GcJImWCRdL2t9Vg0mH322MedowDmdUj7bjGrgzz3yzMVWCfym
xu/3P6+GC/XK90z7lOB+svDCxRfVsP1nHln077rOEzjtRMuqBqUXecsfSeJQ
NJ3U5J9TDTdY78pnH1KAupTPihu51cB0nZCsuFMFvupuf/7gZTU47fYpl1BX
gNEZXZbduGowMzkTkGF8iPwz9fb11IJq+JqSubbavQu26xOHBIuw8cdxCT/a
xgeMOX9Es4qx950SMcs8bAIMDHoeIqXVEBOolSSz3wLoLjwszimrho03E1RL
bhPy5pvP82IV1fBiav3JjJoG+a8It8rLymrw4egWDeETI/+5ezpQgoDi+Wsk
qw5H/J981Jugk6pG/pkte7yoBnmJ3j/qcC3y7Bs6Trk6ZIoev5jyW+TR7HMe
xHfIw/S4YtUPyP1vlFU0WpDb9SyOH/2C3KgX5mHUh9yQ3VTc0o9cR79rwWQQ
uebN00DzYeQyPUKU9Thyht54sdMS8i0984WrrDXo/9vqELH7vhM50XWtRmcX
csHDnNBdHMjdn3/tLuZBVj79UnZcGHnWb9PrjDry+bwKqrErcsPCtkHiB+Tg
q74lws3I2nMDd2JbkF/PVPG7fkQmjXs4cn1DJgx87Lg2gOznpJE7OIis1Jfn
Z/IDueJ78B6RUeSydvkTbRPI3tYZgtpTyDJtLHO4aeTizyOxobPIXuaWZ2bm
kKU/vjrssIA8ZXJo/e1iDXg8vG3/lZ6PXNCS1Cq3XANhxz+UU+mlyB5GdM+e
/ayBkpqZF953NMgSTVc8mVdr/p0f48d6NfzWaqDIk6Aqx2NNfvnuOMvQrxrA
1VgJwDFNcNXHfzfBmva0FZPbSf36IP5GEFe1XgOW6S/FtP9KwRjEBIhs1MCe
NnXx50MakNOwdjxuswaGbzfKlZ8/COePuvL83qoBIeO3Bw7ZqoNwXRvFlZ4E
JYGehes0DRjWOkpsYyDB8g5WRg03TXhRW3hPm5EEkr58q8n5bOCssde2gIkE
QpeDCKGqqiBYEy7KvZ0E206fO7u+oQWDqvOLoSwk+LPsdnKoTBMyiE5vZnaQ
YMxFyqrtqjI4KbckOuwkwRFHmr2omzDw41XOvWMjwQ7T46YXiuWgTyFbXn43
Ca6eXZr3kJKGp+W7tp6xk4Cj08ToeLk6OMrd/sK8hwSeY4EfHsQcBt7S8ed+
nCQ4t4eed4TBAL4ftvUe4iKBcHLp388cWpBaRNY25SHBdvc0Aa0Lx8FeSoat
ei8JNsdzLCh+RsBTkNYvwkuCi8rCdy7rakOnBFNxHB8JCA6MWnxWRpD88trt
3/wkSHt7+6SZynGwFR8ycRMgQdJhktpk307gzDXl+3YAWx8/jwd9lRbQLlIz
qS1EAo9nWrZBh6zJj7LESAXCJKhPpJ20jzQla3dmnNslSvrXf4xv37vDT4wE
NuXb9KdZdcmJRxIqu8VJsBhstA8YNMlaV1lOH5HA5vuYrG38QZlMybnLkHWI
BHe+BIhl35QnJ3T/KWKUIv3LLy1Wf1tPaRI8CWW/zntZnEw5Orv++TDp3/kV
f809T0mW9K8/0nz5w/yJHOlfvlJ6HFfW5Un/zr94tvbn5xSRNXTNDD8okf7V
17Hr7+ekVJDjcUefxKsia2C1bFkNebQwfeSBNnJsYNg9Xn1ktZLfh4MNkEd+
+HWOHEPvj+WiBRkaIqsZuR0sNkLjH7499JndBM03pswhwN8UrYfaaJtgrxkJ
koX7x6y2S5OHeUybj1qQoE6roejwnAI52uTd1RxLEtxmmvyBd1UnqwZr8263
IkE5e5xsl7guebiiqvGyNQlebhtOscs0JEdT5DzbbEiwsE+lK4FygqzCW7BH
1Q7bT3vzyf8tmcEPM5FXT0+SwN5TpjhySYkcHfrswqY9lj9vX8TI5kiSVQhc
Oy86kmCpTPhysJoSDI3HEppPkaDAoz2ztkAIoviZz8g4keCVkf77TJIGqFiG
Mj46Q4IrYv9l/hfDB0N3f5WsnCXBj8nzqnSLKhBZde3kaRcSGMDs5YxqTVCe
mt5oOEcCdYWYX660sYYhAdd8sQskeK16JHf/O0lypNWgZeRFbH225UNjKoDS
ffs1mis2P6nDNR5WdjBY8/WFtTu2fyd49CbLFMmRM8bG1R4kVG+F3i7weyIP
2Bx5GuqF/DCCqEe5/D/XZ/Mfl/ogR4gIH+H0RVY8+XQs4Nr/XK+LUdH1R5aP
8e1uv4Ucdnux9eQd5DZPP3JPELKvsX/BUCgyninw9vQDZJWwUEGGx8iaN+Ld
FYuQDVxKVhP6kEXD6lh/9yPTZX8SvDCIXDdKM1QZ/p/nu8s+6aEicz48Wqw3
gbyAsyAXTSKXTnlPBM0gx7KGrFNpyF6H49lPzCEbm2eKkeZRPkt4l6mLLJLA
dzb4gGSXDZkxvsEsegmLX+ii3PZhJRgt++KyvEyCldrahLRgMXLj16HrZ1aw
fLRK0V9eYYXMhbmHH1ZJ0MmspJgcLA5Be7bS5X6RYP94nUudKDecVmKvePIb
q68Dh7i9WJhBw1boPd06Cdod1spy0xhhn798j+dfErzd99BQVIkPVpOB1r5B
gt6pz0xnR/Whs+oEnfYWCZz+nuwKM9YDfLcL90u6Wriy7dTYB08LSFy7Krmb
oRacfz9pkB/RBR/eMO2b22phLPNG/k6aNdlcM9FqmLEW7jyM2K6maUqWPp3l
asJcC39pCf4DvgZkljsVgfjttSAya2kkG3uUPJ7eGLt/Ry1En0pMOt2pRn5f
15Z1n7UW3l0U+fjeQ4mcMzhMnN1ZC/19PdPd72TJYZsLLfa7av/VU2ch+kHy
7tp/v+/Q1t2zKMlR+6/f5D8vwvR4Ty1sOJS9bCkTIf++q8i3zln7r/705OjJ
unIjV7+z1vvMU/uv/iZTzp9U24fsx+Tn+YIX2UoiPJiFH90vZ/T40bX9yGyX
cl72CSBPR+JrDQTReFoK334uEULjzW9tH+ERqf1XD+/PjK6EiNb++565yLa8
Y1Ks9l8+6ctuE7Q+iNZH2JJL6ZVE7b96uekjZigmWfvvfBpIUD4dK1X7r36+
qjDwWZGuhcT3w3UHXx0hp32zDXeWweJruJOVPU+XHLB0MbVZthZ8jReLSvmO
ke24/IsU5GthXtNCrz7ImKykcr/hqUIt2Epfci3dtCBznExuZ1DC5iMQoRPv
ZUOeu5E3flm5FtLkrRdb2kzhcyrxT6dKLbApuv1Kt9kPtBf7dl1Sq4XfB/8G
7GU3AdbC20Lr6rVQxefprx9jDlL4QcV4zVr4kMZhu5pvAMavdY+JHKkF7cD9
+Uf4ucDjfa49UbsW9MjVH+ZTjCDiM7OnkU4t6F50/GZgoQovuz3v9AH28y5J
RaFByvD+x6c4b71auBgxsk/cTh/GJv9fA2Uf1HQBh3EVjhK2Eb6AXLxtvFlw
4NgLAR4PojEYIKYQYAq6o1hwSAyyRQriEuVk490D8hDCEz1Tpin6ndYPjwkG
XjOPUY4r6ABPZCDrNBTE+v3//ef5fJ7nG9q+Yish4oAk2391GFb9U3+1YRvh
ybFJlxvOkfBZemEMiCOYh3+Yco+KBewzfycZQXBb4XPv32hkcW9PJyUQ7ljn
5fKZLTjk6v16TE6w9Xb9ZGwDvvM+yitOIuTx2jm6QDEMG6d8HLYTovQ7RlQm
CR4J40UtKYTnpWm2TrtNeBl58cPgj1j/qlHdPCOB6zZeBrOT5TV286uHJiEk
yUV5O1MJ083WpGedUqR+PHxoKo1wSaB91SYMhio7vEadTiCOQ4yn2h91ytYO
p0yCJahwWeURAH3R8o9tu9n+fWtcrJEFwVS6r1+4h9Bq/6vnpkAh5jR9fxj3
svmmYy9JEsTgaANm0rNZHu+K8oLMEgSdqlp+uo/NY8kY8m4RQ37G6lymIPwm
qmC4vFAoz6cIXHIIM2sXHls+ccXxK1fFZz8laGcTG83dYpwzrJeF57L3zae/
R5X+57t96sxBJaGkN7/fcYsbJu+P5u/NY/9F2DtvT+d4YNVIdNl8PmGDrEum
fu0E/lhHraaAsJD4aL/i8jom5ol9p2shYZ3TxVrfc2Jk2XKvX/iC0M7HY+7C
Wzi8ODiwWUVwDLHtGvtaitN2IRZTMev/umzzwIQzc4tTZ1V8SRBJqxetSgEs
65+/eXGQ9XOr/M+mHhFeeqW7VKkJ5a37fWvORMFto8HXo5S9Hzmf1zP3HiMV
ekq7vyEY+2Ql9ff8mNTII/GxhwmJnfrPJvz9mOKtE7vNZYQHN5uDfO4GMvVJ
cQXKIwS9h47flBPKXEm7UL5UQbjR+oHj0Hg4HmRx6nUaQlONX1y6LRRzuYVn
+ccISS6Xj8q07uAWPey5VklQbN/lrqlcwwSXSn6RnSAs1koUS9URkGuaRy1V
7F4KYuNN3QH4vHpptuAkoej94dGUCB5zoilrxUotYYg3uXrwjQhdbXfWNOoI
O2R2GY299ujv8vMPrGX36BWm7jgpxaT+eLihjlA5Ewn7Rg7sDE8TkhtYnvz/
hqMKxRD0Je8ZbyQU1w04+z37Ozrmvv5A8SmWr9u1We7KEGSb11Y4NBPGpwaV
BtZX2V8HG1pa2H6+KtkgKffC/7oFU94=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN23k0Vd/bAHCEVIYKhcxTSOYp0yOUzJLQpJKIQkkyhSQkc2WqZCjzeO/F
vZJrKESlRIbM3GseQojwO+9a72p/+6f1Wefcs/d5nmc/e5/WSsje3fIqHQ0N
zTYGGpr/+1ti1256S2Iq0Pz/nwJyUf3CO2Q5T9MHT+qR1foi6Dq+IBsUM9Da
UpAdT61vXNj76p8zn1NXnG8gsyX0/9bZnfbPd/7EzwR8R24UGSz49Cj9n0vq
wxZCNTP+OUSFRdNpE1n/5iFTG3zmP8/5H7R3vfsazX/r3sac6pt/tjvheil4
Cvmug3qjelHWP/sbpP2mc8j+5/1pl/JU9+X8cwOXHqcWN7JnnFiQLi/y1+DJ
06bCyOFXPWmvyCCvSoXbRh9H7ikrZqR4/ed+mfhbkz7IKtmevXP+yPFJR3Br
wcjGfvUXdscgV+l0EjSykV+2bNrHdyI7Zm8xO/Qgyz2gqVDuQ36vTrerexh5
OpcBLzCLrB7OvK2QPvef6R1YCgO2I38BVhuLnciXV9jyF9mQwx3ZT6kfQLbU
5djYxY/My8+Z3SeIXNyxbz1IHPmHPk9mozxymuAB02QlZJe/B1ZcVJGVunjT
NdWRN/B8xqxayA0x/L8HIBdsfmSAvk4txF4XeFWqmwvx3wReO0iMwlkDQcMH
x3Lh71ai7m/iJIiKCC1ancgF26G/9Nm8MzC7KfRS3DgXlq8LHqk+OAvEHmGD
VdNciP5cdY4tbxaCy0V+fbTIBf5R8W8pk7NgHC/6/PmpXCBJmk4l8M0Bh5vY
MVfrXFgT4vx6VmoO+g3F57TP5IJKtcf273pzkCN2MHn3eWQPWgm9YbtcsLxY
4hhmMQeafRIz+MvIjCTJxIcOufBZeeONyoU5+PpU6qiNE3LyzUNTEi7I9ibS
z9ZuIEtLHIZP7rmg7xXVMug8B8vbZCZeeiDXDMg8cb+DbJUoN7bXD3ncTEGj
PAgZJ6VICXuA7M+oFHMmFPn4sNKRQ4+Q2aqVR/4+zoUH/eF9D73moNKauOj2
GtlxTp1+qAq5SsOfmecj8t7wdxynOpAlfn62vtyF5bdr57DYgznQkulPcv+J
bHl/tudeP/K19k3eyCHkJ74C6TljyNWCOmIfZpAnGi7lDi0ic7jeP7z5B1mq
Js6deQMZ2DNKeWjy4NBnm+vN2PysHHGLEtuQXUh1yqqMyDUM9No39yLvszx2
PJcf+UZqqNmwFHLdZKP1AVXkmdjxHlUtZC7VHRet9JAPR3Cn2x/Pg2EXY1EX
bH66fZIjNw2RbeXUxQJNkF0fGDlFmSPrb7w0jzqNzHv3l2rUOWQmpQPSUXbI
S/P6glGX82CD0PhN6O4cDBa6cUQ5IH9ySWKKckL2s4PuyNvIUpbU3MhA5PAj
SsaRichjgsHTj4uRL1eTbkWw5UP0G79rDtfnIFC7R/stD/LL6rVd02LIBZsR
HiGHkN9qH+jmlUeus7vCPKGYD8yX7fmML85Bc0A+lKkgt6Uuetw/gtxdrZFl
qom8on3+doABMifZX6fYEll0iznbwBZZEV6yDF5AVr9I0Sm4hKwbeNjT+wqy
0as72fqOyCfJ73p2O+cDf15RFZyag0tbpkdz3ZDdoT/7qCey10Xxnyx3kQMC
3Vh7fJBDX5UfzfLPB60Vm7kp7PlR5E1Pj0DkfBDQzYxA/kgGtvZnyF8HwnTT
krC7CiyKF7DndW213rnxHHlQgCtXLRV5DC710qcjLwfO677MQmaoCcpVLkAW
0Un3cqxAPlpTq5dYh/zUhpst7UM+1Ja6cG4/gfWr2Zs9OU3IGqFNb0pbkKP5
BG9VfkFWMmnd/qkducc3ILWvBzko97Dy3CDywa7eFpoxZF93pcQdk8hfGCPt
984gC6WOHD4wnw9Lvh+3S2rOgaeyxh+RReSa+GRxgy1klvmVUy67Cv75Upi5
wG1WZAJ/9qTfHuTt5ZtlIRwFEDnUfsNWbg7Omlrfj9qPTOPPwPWKDzkrj1BU
IoJs0n3lWJ0k8uJ29t7vssjHX7lk9yogp6jUeVCUkWc+c2vPqhXAVW21Q89E
50Dn6q0dKxrIkXWtKjwnkLsFZBy0rJCZn2VzN4cUQKdrsPEa9xxMPnoi4xmB
3BQQqMcfi6zq89t0MR456/Z126ZnyBxuQ/YvkwpgjHavoz3rHDy4ZuPq8RxZ
21I2sSELeU1jey0PDtlZ5V7LHKEAODR0nTvpsHqWW+x4X4FscMh5MLkSuVxs
YNLtHfJTnpYtrnrkW2wVHPVNyOPDjteuDxTAsUAZrTMrs2DT1+uhM4zc0Gl5
j5OCrNzWFDY5hvz6k3Y8ebIAVH7JNo9NYeeRWqls53nki+X7qtiXkX88amCr
Yi6Eicze1eDBWaiXE69gVi+EQI6q/v6Ps6DGIf9XVge5aEXj6KnjyNeca0cc
DAthR5b+tVfVsyDy83iolwlyv8kniXBz5KTqky3JlsiWcp2u+aeRWTLO735n
i9zEPoz7cg45+KHT6UG7Qkh9Iax2Az8LK9c8UrZdRb5hcm9A/DqyeDVdsJob
8pBsuKjRLeQX6SyN5zwL4bPsHrVjObNgzf7E2fUucsvyy6LYe8g6PTmL+AfI
a8YyCR9CC4Fxc5ul1MtZKHuHV+t8hHxT9sjP8UhkqfTqe2sxyKN79QWZnyC/
CvlYx5eAfHbZ7KpsMjLHtfbtR18Ugstp8ZsH4mfh6qtg2zubhRCyfM02+Nws
LPsKFXrTFv1zqHUNrT898n6Fi9aB24ugeoX5G8liFnJYNvOCdyIfmXix9ZAF
ufm9htWj3cjn0npyItmRp/18NmL2FYHKzpnKv8dmgVWxIiuBF1lucsn8pTBy
7Ycnr9PEkC3TFf5kShRB6P1uWmONWRjx/2aafQjZ0/ZmRp4MMoMS20qhPHIC
W5FxqRLywSmTNIJqEWxzaY97LYedzxumlirUkQ0zIgzfaiH33JNMrdZBdjnT
tFCrVwQPL7Ta5mnNwrqSk8GH40Xw5cT+jT2Ks8A7/Xq+xQRZO3M4uc0SuTXg
/mzH6SJ4N6lNDJGYhUtnBfW6bZF/KZMTe88hB++xmx6wQ2af+aszchn5ddPz
Z1SHIqDlXvOi48fW+2v1yQkn5IbAbu0ZF+Qds1Zxa15FkB95SPwx+yykfFyk
bPggS72JV6e9h/w2SD6GPgjZ5PzXke0PiuCAxSiOf8cs9Km6q+0KRXZjZ41i
fYS8NVswtCcSObbZWIUzpgi4Za/sfLc5A7j7jwYOPENuV2sMF36OfJXDsU8s
tQgYJDl4HJdmYHmOXkEyHTm0JTNU+jXy/mzdn7LZyDnBQ7KKechqdkEhKoVF
oESJaeWenIGPRwS6j5Qgn+WsPqyFR059cCTIiIzVo+Rzrq6BGTCqW2bnqUNe
oSFkT7xHfg23NEiNRWB4UnwkrWMGLAJkWsObkel8RPgbO4ogr9mEz7NlBooq
BksTupDPLb885vgTmUn5XLdyPzLhNpcrw1ARLMVYlZ2snYHLuA6ajhFk1l/x
T19TkStlLSQ8J5Cd3Fiq9KaL4GR2YfKRihmomQobGf6FzONMtyt4Bbkhm5x6
cq0IkjJ+EQ8VzsBtqr+C0AayoJh6w/wW8qcrK2dq6Ir/2TuDMBPDUAwnhUZo
JTJnQGzo1v2LTMhtArKcsruQA+ymczZZkOXODK1ocheDq5XrFZnkGaiXeeQu
e7sYvPXM9n0wmoGq0dPPNbyKQfLjJ1eRo1h8UoQbDXyQCyzmFk75I79mrOK/
FFgMfwyuajxWnYEXVeFGN4KRn3qc9vJ+iBwpIZwREo4c0j/7OfZxMXRzZrr/
PTwD/k/f/nkRjexpFC6WG4d8g+b0ybKnxTDbrLTuJYrVc7nQvdpEZLsbszmf
U5Cthd+2d79ENusKo6GmFYNnz9SXNZ4ZOB5tJb2Qidw8IzBBaC8G3Qc5Qvun
p8HZ+pw834ESSJOyWFgJm4Yx7+poKa8SqE7ufz9UOQXnK3VextxFbluvy1/y
LgGdfe8nCLgpMNA6VnnGF7kqoLGp2g9ZvsawU+ReCey9La4bkzcFWbSfKOEB
yLEhX+lO3S8B5kfe9TczpoChwXIPMRjZd3uHAF9ICaR/1L1yJmUK5k/YyAQ/
RL4a0a05FloCvIwi+w3jp6Cn5ZyxSTiyBUv/mdJHJVCn+qkdIqbgg9mla/se
I6vHDnv5RSIXf3N4OBhVAg4nGOO1gqdAlH3sybEYZNaEqRK2+BLo/lmor+s7
BSPPlyYzE0uA4MNvf8llCmz7vP4wJSN/4f+z3S2lBBofM5J87KeAmL4hqvay
BDwak/uSz07B4ZFAxZepyBmidLp0aSXQb83dUGM5BfsdQyyc0pEjsxkvfsoo
gTuj3ddmjaaAdiLcVf41spfULv+EN8hT16Mi1rNKoOOaXpWw3hRcKmRLvpSD
3DEbl/0htwTs/3wtv6AxBUZyHOVS+cjKeK7vS4UlcCVxt/krxSnIW0oZOlNc
Al+3MvzGDk2BoArffHUJ8k6SEMsjfAm88NNQVBGdgv5qKQM+UgnI3M7mH+OY
ArkfZrJurSUQGLp0K7drEoy/dz369bUEpExYvml9mwTHr/ajnm3I9z9Pa69+
LwEx9z8WXR8n4UWzV7JfRwlQ7EwnvOsmoaKRZmnzB3Lb+wiz4K4SKCAUxgm8
nYSZWo5chh5kJnLqtkc/S6B0V+vRT/hJGMye7cwcKwF2u3qmhzGTEOsTHdS9
VQLvbEKoOScmYY73yzd9uVKQ3KSmkAonIMl4zLhIvhQa7F/EqmdPgI4vTcN+
xVI4b3fFvSZtAiZyuHXuK5UCuZJV3jhlAuI7FSonlZFV4hMzYjVKoVPTMIIp
bAL8t1++3Xu8FBSCWs2rz07AzoVFDs8LpbD3aBN3284JEG3kts2MKIXK02T1
MJtxuF2qzn8oshT27x4f2zg5DnXPz43iokph36qKrbfJOOwO9c9TjymF3Fcu
YcvHx+HizZc362JLgf7UiVveR8eh6Gy1ilF8KSztfLFnU2Mc/uoP/P32pBRs
Lqo5hKmMg7EsTf2ZZ9h8fZYdOOTHIYVb6NFQQil8k71w6Yj4OLDdkKgUyCyF
I4WPGvcsj8HablXeF29LwdVy98el6DE4sW4zLPKuFIhRflFzj8YgkeKdk19d
CgSm1tzZwDGgtia7KdaUQn3e77UF3zFQqqxUeltbCgFiJp5rd8bgweufa7r1
pZCzR7Nt740xaIv+W9P8vhTi72iUiDiNgaAPX5hlQymkhqjkqtqPgfsVbdOe
xlJoSxQcuGY7BqNlxwK42kshxjB/i0NiDFrPWg0+ncauX1qdUXtHBaa1+4Gc
s6VQKutTTyBSQTe5mD9hrhTGw9aPKxKo4K/W927fr1LoeHPLVC2fCuWdOy8k
LpQC/pdoS3UWFVKtaruTV0th6AXuE28kFW6YyXxPpceBhsX9erXzVMiaOech
wIgD2edj2jM2VBiMfLQnbTsOys7yJF0wpwKPdEWJ4A4cKJ9WusVtTAWrllHz
9J04eH9CobLzOBU0Tjz/lLkbB3UPB3iDDlNhpy5TQw4vDorPt3ZTtyigP6R8
VZIfB33SnwJb1ykQEHSFPk8ABwo+L69XrlCAKBCXKSWEzee0DXPiHAUWqqt1
84VxwP+U/V34FAW6Ne6QCyVwoJ60lG7fSYG9PzPsZKRwoJc5+vrydwqY+H7d
KDqEgyeSB7rtWykQyr35QvYwDh4s2n2+3kiBGuIhzRIZHGyoej66XU+BNZsz
P+XkcCD1a8DtHpkCSiuhvqXyOJhxKvB79JYCbgkEbgVFHBy5TC1MrKBAjvIw
EaeEA3q9Yd/KYgoMt7PZKqrgQGfj457WfArwemqt4FVxEN/h0kDJpkAMLkm5
TB0Hb7m073OnUcBL1hxXoYMDp3A/ppRYCpR88T+ppouDmoHrtuRICky65s0T
9XAQwidQQQ2ngF0Bg2zlcRz81QtM1rhPwdav4hf1Eziwsorgdr5HgbbJS65v
DXHA94QjPcmHAswR0cyaxjggFVvKNN+hwDHJqvwqExxYx/mRN25h19e8XUTM
kNublSUjzHHgeqrJUtGNAi+eL4zNW2Dx1PWkurhQwOFGcZaNJbK01o2r1adw
4N5Z5f3akQKLLJKiYqdx4FE+tH3QngKV/ZThx9bIwcUZ6Qs2WL5yReP5LlLA
KOjipTNncND+4iPnhXNY/k7yCtScRU5fePYi6gIONl/ui0u1ocC1estzS3bI
ck/ZeM5dwkF/xym64VMUWHX41FV7GblG+VGixBUcZIa2OB20oIBFJx3n8lXk
AW//+PpryFmGR05KueDgBFMz2c0EyzfPMlvcdWSVKdyXlRvIm2/do+zckBsi
pU0+uCNHXZjYKX0L2Uom62O8BzLvln34n9tofA1d6wdPfdD86djZddd9kZtH
Wmns/ZHjCZHkpnsoHmcfGgbIBiILWzNqJQSheE6I16//vY/iX7ISWHnlAba+
Yt1villSwLtJ06c5BAeWrzUWqKcpoJP8R1U+FAeXRG3c885QgMmlfDkxDKsv
tvsT7hco8FX9dtlmOA58Hvvaq16mQOIuOc+rETjYNs3YS3MVq9feaYVPj3Fg
h5uy+XSNAuKFub8UonDwIX6+M/kGBWbvOZYkR+Mg8O7ABeebFCg3E3GnicVB
I09RMKs31g8EBg87xWHx6pUWG/WjwPH5F9Of43GgWfy9/W0gBVhrz+QrPcXB
6eh5+1thFOiI2+fy/BkOBvv2HzN/jNWv/XcJukQc3G8dPbHnCVa/irFj15Jw
8P31z8KfKVj90ptmtSbj4LZi0I73qRRYat9xVeU5DpodM3mfZ1Gg6k2DyMsX
OChg2l3hW0SBB14Phrel4iDrt+G4fTlWvwY66S6vcDCU/5d8qhqrX66Ni9/S
sPXGf2FSiUSBnnESv1oGDrg+5tor11Igg+TVl5qJg4yiBJz2Rwq4RCi+YHiD
g+umcfYXOiggf27+7I0sHISqunDe66NA6hjh6q9sHMjhB7PfTWDr1dPnplcu
DngaHMWXflHAl0bbbz0PB96O99RtNikwHkkXGlSA5cu226J1JxWsuRtjGYqw
9V0u+eb8firUv3n8PKIY679szJ5bIlSQU7DIYivFwU0x5ckgzKnVHKVPcTgg
FEqSTOSowGzc/ZabgINxf5l9gUep4NP5siG1DAcMS1/FA82wfj8v3ptDxAHv
iFvXYVesvwsf2f6uGssf2+iFE5lU8C7a2KNbg4OxjPHcnDIqUNTreBtrceCY
bDeo3EQFy8bQgyb1ONgbwL3n8Wcq1JwyVvj2HgfVXZu7bg1SQWaQTcu6AQe6
3w8phC5S4fmNdoOfjTjobtIwbGEcA6Y/SZaXPuJgoMn2wFGeMfB6eOECpRkH
uxSEXdwEsf1zj/A1l0848Izv+KB7ZAxOplI95j7jwObyPdwZ0zGolsq/59mK
9dds/XmVM2MgXeEe/ucrDqpE6fbVuY7B8Ph9PEsnDubeqR03II+BxZ3j1fFd
OJjwZte+0jgG72h3fdzfg4ODh1qkKMNjkMTztF+oDwelxm/e520fBzOTrB0q
IzjgmP44T7Uah6ouF463ozhYara6JHZ1HCSvygroUHFwhalr0v/eOCT8WpT8
MIYDc+b9DIbh40AfQFQymsDBPT/NRJ/scfDYeQ9aJ3HgQPQ4R8WNw0DCUSOr
aSw+E07Zuz6Mg4kI4+nuGRys2UW8PPBtHCqLmy/azWHrwzfO2WlqHCQ0Y1xG
5nFQHzTXw7k6Ds+aTt25toCDM3J3rvbvmgC601xBM4s40O+ya9TjnoCbQ70R
Hr9xMBWcFbUhPgH9runPVpax/VNMKGO/3gQYr11N81/FwckHlJNhJyeAGCqV
T7uGgwtBl2csL02AOPtcWeg6Fn+1YVrRaxPw9BW+ZtcGDqSPhfU/uzsBtNLe
LbGbODC8Gb/HwGcC3IiaPzhp8HDZ62ldwKMJ6NWnHUqhxcNB/e9Tl+MnwOjb
hymBbXgI764lWmVOQMWFiOXX9HgIEE78+qEAO19OmtFKMeLhVklozp1y7Lzq
xc5cvB0P5vtkTkLlBEQrOanw7MDDXlsR1YfvJ+DRQuWlhzvx8Gx18T1b6wSE
lLA+nt+Fh8bzZRwH6icgyM2+7BwL5kMWbfu+TICfdPlAAyselDYOZJzvngCv
yR07FXbjocjUvDvoxwR45FxQerkHD/d1pQaiseuujqV2TOyYaV5LiXROwDVR
hke3OfBA0XW6/qBnAhyGbfH9nHjoSpO7EdM1ARfTCvoM9+OBduXVfoPeCThr
R8NUxoWHbqMZju/Y/da8VgqCPHiIv0b8ONY/ASd7ss8/PoAH3+oSgm/7BJgk
rYcu8+JBm319Srx5Ak5Ym5de5sfDYU3PxBnyBOhzZP78JICHNzyHHz3H3h/a
lhnUhPBgLH5bPguLj3qskVymMB7+nt/iay3BzvdmqWdZRfGwP+Yzbj/2fSDP
vBDiI4aH9Zj9FR5YvKWbjxWPiuNBf+DhqZ1YPiTCk7vNJfBQ16LifDlmAkSO
z2x7K4mHJPJgg2joBPDTH5URP4TlL1HuD+u9CeCpe2obJ40H558D3TecJ2C3
tmahkywear6PF42bTADz35jONjk88Dzvu6upPwHbK0dotRXwMJZSu+uVHFav
3qrSuYp4uFJa+PkP7wRsKj+25lDGw/XqcNdEjglYW+wPClTBw4M3XOOrNBPw
u1Qhf1IVD/V8XJGnZsZh+nDPVo06Hq7t05L/ja2fsanDUtKaeFgdeVGgia2v
4dz7VolaWHzNDA0c8sah36kjgA7wcJe21puUMA7dYpK5rjp4+BghOb/jwTi0
j/h/7zqKhwrfVXpr93H4mv51Q08PDz0fmau0YBxaLopKFOvjYaX7wjvrQ+PQ
wOdtyXMci1/Rj6rr+8eBwNm43mCM5Z9hgxZXOQbF33nEFUzx8HaAIJaSNQZ5
cW4WL83wsO+20Y2g+DHIMq/zZbLAg4fO3uFDt8YgnWXfm9sn8SCoGxA4e34M
ohmumgna4OHlIw/5ANoxcP5Nl+5jj8fOaVLXLtlSweLaldd9V/CANcMZdmUq
qPyszz56Fasfc466YXkq8JmJ5r9xxEPEpSdKp1ipQF8bUrTjGh48qQVJXn+x
86kipdTVGQ8FuQmzjycp8C3rWNk3Fzwcp903dHEMO79zZxGVb+DhkmHviCV2
vk6NZKxKdsXD2b8CeSqlFAjZciRvuOEhy6jsw65XFLju0Vh3+SYeDlwJYm/D
zr+WlIMNH27h4Xdcet6bRxRQsw3/KHkbmb9l/FOUJx729D06ZX2XAgzahl9/
3cHDi2na1hUHCkyX5H4/fRcPLjNfVh5h55s2kZ2dJG9kYoJLD58vHqT8BXKY
dSjwakdL330/5FD/Q0MUfzwsWYeTAg9T4Mbc41HDAGRL++mxwkDkIx0mU3vu
44FmhYZhhIcCgicKZ+8EIzO+ZVnofoA8fdjtt9ZD5O9pX1bTQ5Er2WX/MoSj
56eFxmw5P8LDstzK7iP82Pz+zNF9iUB2vWHBqBCJbDVQsiMhCg+JwmYJX+Qo
oG65h2UtGg+xF3vYSoWw+X24tdsuFg8nypUVQIkC29Xa2OvikNv5nvBEPMXD
a4WrdwyMsPPwBIcETwoemsKYU894USAziEtP/Q1Wz9cX3oe2USBi0ft4ahYe
Wvjke2LHKXDTsduQLgcPXIW0idZrFLDpPmLqmIuHG8cra55i5xVtkxSL5jw8
rOlODsZxUEGUvHZKpgAPx9Zi6Za4qNg+fs4mvhCr53OnGpZlqLDw+u3Z5SI8
MMgvbfkoUqFrP6/d2RI8jLqdq96tRoXqCP/L1aXY+9YPRgph55M3G70Owng8
MPZvi+ywpELkTa1roQRs/XAMGT/Hvmc9Rl5enyzD+m9g+OKZy1Swtd50M6vA
A9vdG90nHakAH+08cESsnu2H/M5cp4K4JvnOvko8zH0yeB5/HzsfFQv4+L7F
w/npLomSUCok9YU1/a3Cg1fTHc7ex1QQY57fH1iNB6HAkGXOOCrg1G2daGvw
QB+s10uMoIK2c035g1psP5FvCxCOpUJzogQjYz1W3wGq0UnPsPNbQ+zp8PfY
/qHGVMzznArDS6uvdzbgQfIHl+WHGCq4i1xeimzEg8mhjklH7P6/Jz/qsX3E
8mst9IQduz88SP5JXDMyR3HyMPsnPKQ+fdXxG/t9Wh+tQsJnZGlml/tcrXhI
WYh2GA+hAkm97WvKV+TjzuqCfG3IbYkZ7q++4yF/f0wygycV7Bp2koU6kKeW
PFhf/8DDtK/Am/1XsPOgyM8L4l3Y+g9LTVC8gPUTS73CnG48nDaq+3UGy0ds
UP5fqZ9Yv7Z7qmJ+nAq8xewmhb14+GOS6morS4WcPr/nsv3Y+2gPTgRLUkGZ
eXSydAAPn+MCuf33UqFO3URdaQgPmuMdd/4wUsHMmfCofBibr1T1AHUOO48n
8narjWL7zW0l0dRRCjg2hEi8pWD50G29Mol93y8sTd/VGsOD43pbGxfWjwJF
TjeSx/FQ3NL8ROIpdv62fLdPdxIPN+O4+TZsse/vIDHH91N4aPVtdefWpIBo
cVTZ8RksnzWH754QoEBp32/6j7N4ePViIENgfhS0me2sjOfxwH8SV9P/YRSa
1RsyP//C9nfd1irZhFGwdpZZNF/EA5VT3NfEcRSGExN025aw88KvVo8jKqPg
1rAZZ7WM7ecPN/FGKyOwvuQ49GMFD3YDwQUfcSMQLtIqd+YPFo/ISHZjjxHg
sFQN+rmGB6vO/sR0nRFIC3rVeuEvtt4cb+SKTQ6DdPF2gcENLB++wff5s4fB
zjnn/MQ2Aui+iSTI+g3BZOLugusMBLhOT3ydajgEdxu812cYCVDzPkbsCc0Q
xIoYpizsIEAi61KSlvsg8FqWTnjuIkBQqrFhs/og5ARxH1lhJsA+FyvvieEB
UCq+H+7DSoDyvLWcWa8BqO2b6FxnI8Csyd3rHgP9YMZseTBgDwFKF4g1+Mx+
6FGv9KJhJ4BA7+k7spr94Ogs3BDMQYC1yXxJs+99sJAYwcmwjwD6Ok3W1ql9
ENCw4BC2nwCS/Y0btM59sOv3WcIObgLwy17RMlfsgySR+m2RPMiilodOsfIi
a+OE67z4kG338sgP8KPneXjsSTMQRONFtTGxlQgR4PjyyLuHvX2Qo0ATwCVC
APPkK0+4jvVDXfzKdJAoAXZFmr/LKeuH3oXZcxNiBLjqxViZZToAy5bU5pMH
CRBqRLi1a3oAduP7jlRKEOAX3bp6ptwgSLF35AhLEWDlO16isWAQ9G9/2v/4
EAFWV69GZbMPwcXv9aGL0gQQteuLnnw9BL6Kb3+fkyHAm3mVA0VCw/D0Cc7h
vSwB2Ox4/hz7MAxNp9J1nykQoH1Rl4d1cASG8UmlG4oEeHbJpOKs/yj8ZY8V
dFQmQFWrnu42Bgrs8wyL+aJCgNgpLrFf2H4r3x6wqaJGAAtJ0nTxAgVMlLxc
Xx0hgOM2ztunsX7s+NS1d7sGAY6y1KVVm1IhaMnB+KYmAfzino2bq1Ahxep8
ZZcWAWKIa8uGixQgEE5JHgUCMH8pMea+T4EvHMZJuToEcFV/PlbdNQrjnrrb
9+oSIKc5S22SaxToOo54+eoRwPbLovFjxRHgVZanDOsTYKfJq7PB6sOg8kzC
yvg4AVT4lByadIbg+un9CryGBHjMVN3p/L4fQstY00OMsPy+L/g7IdwHaZyM
u2eMCbCkLugzlvoTKu9sBJw2xfJj7KUqZNYD7R1LM+/MCNDsNyu5crgbZpWn
z4tbEMDzzGby94NdwJQw0hJ9kgALkmy3E0w6QXi5R33FkgCBb95sa0n8AZrW
bbkXrQjAc2ibnzDjD+w7/CNX02kCbDy/8NguoQNu7qsNk7PB4jMk5nBbuQMi
vIjLSbYEsBZi/Gu0rQPe/Ci+SnuWAHdfNsnl9LdDjUp2u/M5AuwwXeLm6myH
noRUvbbzBKje95Rnubcdlpaf4dTtCJAWN9vgSNMBrDZRQpkXCfCARfDjJZ0O
kKgIid11mQBxrDajGpEdoLvff+u2PQFMdkzz3BvpgPN3b7v1XiGA1OZNe+2T
P+Bup0uf/lUC6I25f5Ou/wHxqvYmhY7Y/FLk/yzrd0JB4pm3nNcI8EpuPK2g
qhMaViykApwJcGTgtfNP5S4YtDmRTHUhwB7pjorct12wVgFM5jcIIBZWopjJ
3w0cXKp3K1wJYCMQcK3TrxtkvGWoAu4EmHhL3dj41A2GXWKnw28SwG1mJDd3
Vw84qPG9n79FAKUmyZ1TSj0QkMSheOY2Afr/EJIZdHsgaXVXRq0nAQ7ynbqi
It8DONtte6S8sPp5dfdIBE8PeHjSfSq5i/Wf9hSTuvpuUIilDVP1wd4vaNtw
kVM3LOTT6Fb7EmCTSy595/ZuwDVu/dX3J4Dc+2zCdbcu7LywWdFyjwDr1/fH
dY53gsLWhodlIAHej6x3Lep2Ak7l7/jFYALcO3pwaxvDD/CwXM+kPiDA6M6d
XozuHaDgtmbn+pAAL6tcmceW2mHh0R/upVDsfnX5ePbH7YB7s9ruG47V44aj
tcDBdvCoXYmhjSDAHfvs7x5/voNC37JR+GMCvLtQaGP34zssrP5mYIsiAJNM
JlVj9jvgOX7XPIsmQIJEtvH4vnbwlFvy440lgAS5n1k/uB2UTBZVMuMIED+W
WhKzvwOWnBZ+ST7B6ocnWfTpfAcQHvwqKHmK9V9lqbtWOzrB89W8k2oCFl/W
GfH3AV2g9HZOuDqRAAbs7bsfOvTA0o/ZPv1kApidzZGxzegFwsJMUksKth4T
eVaPaQ2AJ+vMKcsXBPgWvebptH0IlKSmWbtfEmBQaSb6rvMwLB2b+njxFZbv
NcWMrJQRIFyeDKGmYes/zvwIx+VR8MS+EV0zCFAwtpcvO3kUlJLH1xYzCdAx
XjKSazwKS4SxMt83BAio4qNy3sJ+/5V6kzabAL87o9K1TwyD5zTlUHgO1r+t
30gYHMDGZ6JQWfOw/DLocrSRB2BJZDT9WT4BGoeyjieX9mGdaOQ8byH2vs21
YVb6veB5bnh/ZhEBRCRPi8UH/gSlu0NtkiVY/TppGm3d/AlL8YNRJaUEEGIR
ptZU/ARC0cAJVTwBoqWPz5dQsd8392+rJmDj6xmOxAf0gxK1r1q/nAAnk7R2
34RBWKLt82mpIMDhHTuvSTwaAgJfr5IliQDLHRHKxbXY/I/8nOuqJMDYQdnV
Kz9GQOl0T97FKmz/rY+vPoPFY+lm91XqO6y+n5378vnTKJRFdgm6krH9tOCl
gPOJUfDK6fy5WEMA4UP8f1p3joDK+x8JvnUEYNEWvBtiOwTLAx0nad9j+1ed
SwD9Sj+Ur7czh3/A6qlEaWnt1k/w2t/eyNpIgLwTm/zm4V2govg9+FkTAS4c
96xiuvgDls3atHibCeAuNW77RaUDyl2+rWa0EGCrNyV5YKUdvEK/4iU/E4Cb
09f6UXMHqGS0upV8IYBMxM/u1cxOWH73RVL1KwFO0Z30+DTUA+Xdn0fffSNA
8Emzuw9DB8Dr96dX+t8JUHs4mO7Aday/7/l0tqWdAD+b95x72jUMy9ItnJY/
sP5B3n10ih/7/Ynmr12dBAi39v/Cn1EH9Am2+ce6Cej/V4xQH+J6kNPk7lwS
6EWevbdNI7IPWbMljvNPP3IEl+D81UFkMbzmGxhB9qBpCSwYRa4xPXOWm4p8
fvwO2+I48lO+Yp+sWeRhFy0r9nlkOWKLTNAv5E+W4yNnlpDpw4XMWNaQby88
EfZkKEPjg/DGICMya1RJpykTct7Bz5EHdyEPn2dc6dmNbNno3XKUF1nuxQVP
NkVk59TVg3eUkDPSnvzsUUbmePNRN0sNebVQeY+WNnItmaXIxfA/4428G/tw
EfmOFP85/8j/jJ/xWc9/Bvll3JY9dRZ55335YIt5ZK+bV9IrfyGPXHxWI7pY
Blv+uQ9+cnqBhXnjQPRSGazaNyXyvXKAKu0/m6u/y+AgU7NNC/USSMoc4r+y
UgaOOh2K4bUK5AS+C1qfV8vAbfcP4QBuEfI2lpjzqmtlsGFT9KapSIh882+N
X/p6GWi4hWWfHJQm904tpOzaKAOhGTODw5FaZMOfopV3Nsuga+bZdfIZC3J5
s3X3wFYZ4DfNrl4gWIBwZfiqIW05SJ7psf3aoQAxuZX7CXTlYNA/tFufVgL+
Jk2r8NOXw25XkGVZAnAO57cOZyiHe82mjbk84vDjrsWdBcZy+GNW3FTRogK6
TsFPzzNhz0ul+7vwRJ5cbE3AN+woh2BrnhTuJEMy73Fqm9yucvjZ0zX5o/4w
OVyZayGFuRx+LXS9Fh9kJv8WNdrDwFr+L372HP5y7mzIrduKzLt3I2suDrjp
7UXmbNMr3M+J3BSzS6qGB1k5UMtQihc5w8392lM+ND6rXXrYJj+an5/p96xr
guXw2/ftt1039MnjmgwNbULlMBGZud6+YQpW0qoUTZFysNovbdj9QhZqDzjT
Z4uWgzPr+rOy27tBZtdzkT3i5TAbdza19p4aPF/7pOt3sBx2PFMurQpVAqbJ
zcsUiXLQEf+a2nlRGzy75e6bS5XDspQ5pbFSFYaa7NNIh8qhcN1urO6iCpgR
n5JFDpfDzPipXQzG+lCZ3dAfJVMOe4WMGJ6oG8DBxNWNFdlymMyi0dlYkCI/
DZXis5cvB/Y/gs1cKdZA63Ve85NCOXQe25rJumtAdrsafU5FqRweVkR/J93T
IPdY1fimKZeD3xcvkfS7smQD/YXknarl/+qPoChK8lQrB6cwX+tWWm6yoIh1
V/8RFL+oveErJzSQ12gr9+E1Ubydfk0p82kjtw/ynQ4D5CLy/SfndJEPFONx
H/TQ88JTKd9kj6Hxl6L2/0o+Xg6JgWy3ua6Lki/fM9xNf6IcCJqDvIbXlcie
Eg/8Ig3LgfeCPY4+4Rg59HsVlcO4HHLzy3xMHU0hOWD55EuTcvghEm6CH53X
LpCUeydmVg7Vh2o2xsu1obrdWaLIvByIR3A1jizy8C0w84nKyXJYiXZQ7NeR
hlGpvs1qy3JoSFBeV/2mT17u2OdiYIXmz3TfoqP19H/eRzpCx9YGWSd4Y5/z
WeQImdH6iEvIL7r5ZNntkYtDbFKeX/lP/HqabxY4IguElfJ9uYFMGAi4u8cH
uSGCOJzsi9ytvGAq7I+8+fiqqGIgsqGayTerh8j9sdyHkuKQt+sS+vnzkOkz
1oTT8pHp6I46CRX+5/m1n+dESpCXj47RSJYjjx7lEVGsQ645GuRk0INcnd6Q
3/QTuYqWZd6wD7miNtnbZPA/9XQU/+gk9T/xPErNP7eAnJIuPd+7iJxEe1vJ
7jfyk9qtqkuryLFCx2mH/yBH3488dmUdOXKo7dHoX1SvEUe5v1zdLIf9Dams
TToa5PD0i3vHtsqBUdLJ+VWSKYTSZllfo62ANRZHyTMh0uSQy9MpE3QV0L5c
Z22iow3BtQoDLvQV0PL8qPv1rxoQJOQjMs1QAUQF3+ZIN00IuE92ct1eAUFX
+p2M6QTI/kMMBbNMFRAmkxWcpylG9jlqMu++swL2fT5ZRJ1nB/rvQladuyrA
+Usab7CNMsQ6rFRos1QAw8WvHQIHdIB3+dOBLNYK0EvMVNp4qQ45YRmBLLsr
wN5WnPYeozBZidt7xHNPBew90RF2nd8AyHmmBr17K6A05fWkiqAl2UhTJF+P
owKsR7S0tq0ak398XmXN56wAnPyBkOzgY2T7i1889u6vgBcTvfpTETrkmfnM
Hz5cFdB5w5neMPQI2TvYR32IG5tfPFnzxAdFMj2HeeqJAxX/+lHsG1G6El7s
fY99KKbQSpJ5Vdeu7uev+Lf+c5paPwYIVAB7G82v86KCZMWzbw5TBSv+9Yvq
Kd84U2Hso7Dw2wnm6xxko3sWvwkiyD9Yxc/wilX8y5992nrVA3HkWflvglMH
kX3qs0IsJZHpT/uPk6SQY6knTYSkK9D/r/U+WBJ+GDl7xwb7vAxytXTOz2p5
5BmPTZfzqsje9O1f6tWQ6RNyFQ6p/+f5JKu1P5rIRlt5jxJ1/zPeY5ucNlNk
Bb7DzOrmaL7VRXQ30y2QjXS6vjNZIv/4Vqh68xTyzJLtlrb1f96fi76R5cx/
3j+3W+rOWeQDGsXRveeQsz6FLOhdQFawO2udb/ef/Nxn4Pe9jHz5dQnlhANy
/K+oZ1+uIr/Xvn7Mygnl+/fjE7+7ryGLd4u9ueiCPM3y3MHrZgWc957Wlh3k
JfOf8+b4ewvZPOf0+/u3UT0F/Vbw3H4HGae7WzTKC9n77sORTP+Kf+ezvPf2
TyQDkH/u0dErDkRmvsi3qHS/4t/+ql2wllEZjJx+vIyu4SEy/ZC7/bdwZBUZ
0702EchOflJ1vY/R85OatnvYRyE3c1KExqORY43ODm0+RfOvS1SNC0lAXhzl
OLozCVlUYWE+JhnZOrA1jfM5ilf4pwKL5y+QSdwRNEKpyJOOTiVZr5B5CfqX
pNNRPgLNtsiqr5GHx0kCetnI7CqJrU05KN/6DzwDzfKQvb6elG3PR87mkx04
U4jc5cIcM1CEvJM4oX21BFmDoXF2shTV4w3L16k38cit03abfuX/qdcwbrsw
EvLq22i+VPJ/1tP8tj7CB+R77jcLBBuRNWd7/SKb0Hr8e8PQePUj8tupMh6H
FmRfF+HJ1k/I6hPRJI0vyESqky37t//0i6vtBwPbkFVHdVYmvyOXD3En1P1A
xve2fL/Vi+xxTi2zr+8/79vz2sNwAPmX7R7dskHkks57e4SGkWU7rEtWR5GL
2mTNv44hu558wa85gSz9lWk2exLlY9rszjv2aeT8z0ORgTPILiZm56dmUX1I
tVQesplH9TVheHC97heq15ymJ80yi6j+nQxoUlKWKmB73A9ZmRwxsnjDDWfG
ZbS/UPW71TxWKv59D7ypP8bUv1oBI2OcR8eL5MkOurhOw7UKMPvO39N9Vpks
WsufXbZeAfodlHCLxiPkEXjsJbRRAVpKx4+f8gZyRvXKsahNbD8uap87e06P
fFnLgfPPVgXInrv6aarVgCxY9XXUgZYIJnvPM9adNiUPqmsRvtIR4cZND8YC
DkvyK1LuA016Irh854r3+moCdmr7TuUwEKH0OZvn7r3iwF8RLMyxnQj0SSn4
vhodcp/y3K9AJiLEyhD8rCo54AXhXO3UDiIMioUcw11QgHOKTbE2u4jQPTeX
fyfkMPDglC7VMxPhoFCW4dvVBe0euXRZWVYiXD7qd/upohYkF7NspbARoedQ
2GDcsiDYyvh+YdxDBCP+BesrfTrAVUh96bGXCAnjPoL6QwCdh0659rMT4Zjc
Ba8Dlw9DQh5Z04iTCE0mvXPlz9TAWlKauXwfEVaCh5W2HxQic+Yk/RTiIkLt
lMbGHwF1aBdnyI/iJoL5b0p07io7+embW75/eIhwjU03Yn1NGE6J9hte5SXC
rj1KpEY3RfLeTCPub3xE2PxS63T4nTm5TahiXFMAi89kNVN7hAo5Lk2EmCNI
/Fc/mu0vLrEIE//VO3X7vh0eIsixGjGlP0SR1d2ZzmqII49m3KdLO4gc82Mt
j17yP9e1ZtY/H0KOvuX4WuEw8pE3AyaJMv+5ztz28pI8shp21l1UQR5mlRu3
UUOO0s2NrTryn+u5z4ceaiJHegc94NJFHuQ0atQyRY4wrHfPMENWvqfJtd3i
P9dHZZy/WiIr4dl3XbFFDrfoMwu/giz7+OaPNh/kIN9fzaf9kL86e5C7/JFv
nvDM6Q9ExjF4+04+/M94QYH8dPH/idedaEf5vP/Mz4HtHCEfuedUrLlqIbKv
QryaVgly1dyznYblyNouL4su1f0n/mf4M0fqkftPvEp0/IAceDA96EYTcs3o
a0vvL8i728UM1luRL9dnaQR8I/5b/zjcQTna70QI3LrMYXBYjEyXkSMa0k6E
Rw+b458/1QHLOEnu7T+IsOOsZbxQ+LB2RlAeS0QnEU6H+6y55sjBgvshOpZu
Ijjw3u6ZETsEehcLlmN6sP4gkq73lk0FhIOqdv75SQSfpn7HgLdMQJP+id++
jwik1CzugPGj0F/bq9DST4Two/kPt61LQ9Xw9HGlQSK8PjuHJ1sKQMq2jbMv
h4hAudOoft9BG7xFWdwZR4gwm12frGohCtbH+B64jxJBQZjUbhhoBUqOhxO7
KEQY7rMAmyBT8t4wrfyjY0Q4am7j+GX4GHk+25ScN04E9s1mnvRbOuQvTRe+
s08SIeKKl06K/hFy4YTrmP8UFq8dtfRLXErkyJ0B65RpIqwuHPvrKSpHdjkU
zWY+SwQiqedIL90h8gmTVBHiHBGqHnTG7msXJ4u7FqkK/SL+O//TR1cbRywQ
//X34aIvFxcXif/6f01r/+3zv5FT52fDPiwT/+0XZxXYShL/IO/3lO1y/ou8
/BSm2zaQ28vMaTS30PNwPy5yvKEh/XPsirsEKx3p33zcuII0724j/ZuvyZFY
i0F60r/9R+psmoMhI+nf/sPkV+KN20769+971Oc1kQd2kOBozr0PDyLkyO+r
vqaF7CSBXbDhyhtuRXJG3yBhZhfpX78L2pxvsmYhQbPanlGTbRpkOwHaPjIr
CaIXsz4maOuQNXX2/JLYTYJWaZc/qx/0yDyXhRji95CA+Vfxh1nxE+Q/9+W5
1/eSwOhC8rekF6bkroyjhx04SDDHeaxPRdWSXF5/8uhnThIceqf8hb7OGJ6O
Xj6tsp8Ex0Iub5PiEQQPBg/nV1wkuLHtzMgHZ1OwEA++x8RDAsWuQjP2tN1k
GYP4uFsHSGBvaVmXEUQDzNcy3vTwkmD89j0vPavjMBmOI+nxk4Bw7prggesi
0JRb97lAgARMBs7flESEIau5bYhTiASdXyT9DggAhEwN/w4QJoHmL1V1Uqsu
XGFe3DEuQoItg21GOzuPgu7hbfwnxUgQl053J6NEGwTN2BUqxUnQ92ZI6myZ
Omy6iRwXkcCuq+D0WbvVoTdG8WykJAm6enYccsfrQGWJnttvKRL8WdF5namq
DknfTgXbSZNg1++T9zTitMBr4UpC42ES8Pn52WpRVcCK3TNPTpYEXi6z2nXl
GqCgFFKdLEeCwl157bRbKrD79NM2OgUSkH4o0Wz2aMLsndfU64okWLct85aN
UYXPCYS1diUSJHe/7dzIVofpV/tZrqmQIGSWp0fhliLszPUVWFfF8k+3rn+8
VgEkcX3y0UdIcDdQ1XP2kwqceKujL6RBgpGG/hftuvvA6X2mNUETy+9voTyv
a5IQ+pnR2UCbBL91lIifdBXhzQ9nvx4gwXLcudHWYFV4P/ApyvUoCbRV9pL1
R1RhZFw2jUaPBLH+Z6I7yhSAbiEe90Qfe7+tvQoFa9wguP77vfhxEmwuX/QJ
qVcGoD/TSTIgwXGD6Q2NCG6yHUvVhIkh5otKTIG5e8n++wT+DhiRYO95I5Ns
TRHyc4Fg1tsmJGiUoZQ6RapCpQRFkNGMBBLEDNfdRdzQLX9CMdmcBO9iY95V
yyiQV9Xzj0mfJAHtkTI71cQ/2vv0WW3JliQQI5m5tG7Kg7LpLRdLKxK4vw7s
SWrXBivrdn/KaRKkP9gUB25ZssdF1RhvG2x9/ewkeGeLkeOupaTvOoOtB0eX
GOo2EXLJrQ186lkSpNpNsHStiJNbfS81yJ8nQYLXuGh3gRx59kF91/sLJHAd
Cd7hb68FzFHiUzYXSXCJzq1CkVYeDiU82pi8RIJvr1UCbdj/ahu9mmYLsCeB
T862xcvb5MjXcsyF9ziQwJiGOKFbcRDCSnFKr6+SQOhOGmuFuQQ5q5LTQNWJ
BH9b7q555XLBh3rvM83XSCBnsDPJaqcijH76ef2CCwlmb267c21ZHeh+aAfM
X8f6z88E8Zi//GShgfTYB64k+LF1MkN6kJusM06fuc8duy452cJmIUS2++VU
lnuTBP39WxZroAj31pobNT1IQCOzdH6oSBRebJPpab1Ngrzbg/fsTOur3zLH
TdvfIQGH+dS9I5zy0MO5tPnbC1tfrZ7l839ZYJXfZs8jbxKcUCn6lo9d3y9R
KcLri9XvjOal5pQdoCLPp1LsR4Ka9N6h0wYyYKUedEL3Hgk+ujN/14ihh9t6
I2c7AkiwL6gux9VIBuJNjrteCyLB/DzNh+BznFB6Ojdw/T4J4qfXi9q4leCr
HXN89AOsf5g/qrykJA2zTu6vhR5i+brV6vxiURRYbrWVE0JJoP99SHhHkDBI
+yp/NAgngXMQW0bab1EwepD0s+cRth6Fo/6kykuDc+T6jOtjEvAyPXQJ4lGC
8Gd2NLRR2PoecFx1d9SE7NTavU+jSRD8MHzYJlIBGrJFxQ7GkuBK5kO10HYx
GC0JU62MI0GU8JnrYY+OwLbKSUPTJyS4FZXF1kFQBuF60/ODT0lQLlUk0H1T
EXQ+lbjdTsD6y8uJmcuPFeBiB/t9xiQSnFR+ed2kUgEC+r2eJCdj69e1513z
F0X4Hzrh4O4=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0.03, 0},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.503045556345417*^9, 3.503045707765294*^9, 
  3.5030523393384905`*^9, 3.503060041687623*^9, 3.5030601099306345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"simulate", "[", 
    RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "  ", "0.03", ",", " ", "0.1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", "0.001", ",", " ", "0.04"}], "}"}], ",", " ", 
   RowBox[{"PlotPoints", " ", "\[Rule]", " ", "8"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5027974847184277`*^9, 3.5027975875194654`*^9}, {
   3.5030313003779297`*^9, 3.5030313508623047`*^9}, {3.5030384284298105`*^9, 
   3.5030384331467485`*^9}, {3.503039835774042*^9, 3.5030398373911257`*^9}, {
   3.5030403088209133`*^9, 3.503040317339899*^9}, {3.50304572340066*^9, 
   3.503045723456326*^9}, {3.5030601824857035`*^9, 3.503060185766618*^9}, 
   3.5030608255650935`*^9, {3.5030609005157523`*^9, 3.5030609010938587`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030601947032022`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Indeterminate expression \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.`\\\\ \
ComplexInfinity\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
encountered.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030601947032022`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030601947032022`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Indeterminate expression \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.`\\\\ \
ComplexInfinity\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
encountered.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030601947500725`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Power\\\", ButtonNote -> \\\"Power::infy\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030601947969427`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Power :: \\\"infy\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060194843813*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Indeterminate expression \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.`\\\\ \
ComplexInfinity\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
encountered.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Infinity\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.503060194890683*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\[Infinity] :: \
\\\"indet\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5030601949375534`*^9}],

Cell["\<\

No more memory available.
Mathematica kernel has shut down.
Try quitting other applications and then retry.\
\>", "Print",
 CellChangeTimes->{3.503060785785371*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{829, 696},
WindowMargins->{{255, Automatic}, {Automatic, 12}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 153, 2, 137, "Title"],
Cell[723, 26, 150, 2, 29, "Text"],
Cell[876, 30, 1732, 32, 299, "Text"],
Cell[2611, 64, 190, 4, 29, "Text"],
Cell[2804, 70, 695, 12, 119, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3536, 87, 155, 2, 83, "Title"],
Cell[3694, 91, 96, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[3815, 96, 184, 2, 49, "Subtitle"],
Cell[4002, 100, 2955, 65, 276, "Input"],
Cell[6960, 167, 1213, 29, 72, "Input"],
Cell[8176, 198, 373, 10, 33, "Input"],
Cell[8552, 210, 14933, 353, 927, "Input"],
Cell[23488, 565, 2746, 67, 250, "Input"],
Cell[26237, 634, 2848, 70, 250, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29122, 709, 239, 3, 49, "Subtitle"],
Cell[29364, 714, 48, 0, 31, "Input"],
Cell[CellGroupData[{
Cell[29437, 718, 996, 20, 52, "Input"],
Cell[30436, 740, 865, 14, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31338, 759, 940, 19, 31, "Input"],
Cell[32281, 780, 2209, 48, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34527, 833, 139, 2, 31, "Input"],
Cell[34669, 837, 1255, 27, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35973, 870, 227, 3, 49, "Subtitle"],
Cell[36203, 875, 48, 0, 31, "Input"],
Cell[36254, 877, 1670, 40, 132, "Input"],
Cell[37927, 919, 269, 6, 31, "Input"],
Cell[38199, 927, 3754, 82, 292, "Input"],
Cell[CellGroupData[{
Cell[41978, 1013, 394, 7, 31, "Input"],
Cell[42375, 1022, 1301, 21, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43713, 1048, 336, 6, 31, "Input"],
Cell[44052, 1056, 848, 15, 21, "Message"],
Cell[44903, 1073, 846, 15, 21, "Message"],
Cell[45752, 1090, 846, 15, 21, "Message"],
Cell[46601, 1107, 962, 17, 21, "Message"],
Cell[47566, 1126, 672, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48275, 1140, 98, 1, 31, "Input"],
Cell[48376, 1143, 1455, 39, 171, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49868, 1187, 258, 7, 31, "Input"],
Cell[50129, 1196, 123, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50289, 1203, 96, 1, 31, "Input"],
Cell[50388, 1206, 312, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50737, 1219, 103, 1, 31, "Input"],
Cell[50843, 1222, 286, 7, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51166, 1234, 133, 2, 31, "Input"],
Cell[51302, 1238, 191, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51530, 1247, 215, 5, 31, "Input"],
Cell[51748, 1254, 176, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51961, 1263, 1624, 46, 172, "Input"],
Cell[53588, 1311, 414, 9, 21, "Message"],
Cell[54005, 1322, 414, 9, 21, "Message"],
Cell[54422, 1333, 414, 9, 21, "Message"],
Cell[54839, 1344, 530, 11, 21, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55406, 1360, 166, 3, 31, "Input"],
Cell[55575, 1365, 135, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55747, 1373, 137, 2, 31, "Input"],
Cell[55887, 1377, 170, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56094, 1385, 370, 11, 31, "Input"],
Cell[56467, 1398, 483, 10, 21, "Message"],
Cell[56953, 1410, 490, 10, 21, "Message"],
Cell[57446, 1422, 483, 10, 21, "Message"],
Cell[57932, 1434, 490, 10, 21, "Message"],
Cell[58425, 1446, 483, 10, 21, "Message"],
Cell[58911, 1458, 532, 11, 21, "Message"],
Cell[59446, 1471, 490, 10, 21, "Message"],
Cell[59939, 1483, 530, 11, 21, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60506, 1499, 644, 17, 72, "Input"],
Cell[61153, 1518, 483, 10, 21, "Message"],
Cell[61639, 1530, 490, 10, 21, "Message"],
Cell[62132, 1542, 483, 10, 21, "Message"],
Cell[62618, 1554, 490, 10, 21, "Message"],
Cell[63111, 1566, 483, 10, 21, "Message"],
Cell[63597, 1578, 532, 11, 21, "Message"],
Cell[64132, 1591, 490, 10, 21, "Message"],
Cell[64625, 1603, 530, 11, 21, "Message"],
Cell[65158, 1616, 72, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65267, 1622, 340, 10, 31, "Input"],
Cell[65610, 1634, 509, 10, 21, "Message"],
Cell[66122, 1646, 509, 10, 21, "Message"],
Cell[66634, 1658, 509, 10, 21, "Message"],
Cell[67146, 1670, 625, 12, 21, "Message"],
Cell[67774, 1684, 1551, 40, 171, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69362, 1729, 113, 2, 31, "Input"],
Cell[69478, 1733, 594, 12, 40, "Message"],
Cell[70075, 1747, 626, 12, 21, "Message"],
Cell[70704, 1761, 594, 12, 40, "Message"],
Cell[71301, 1775, 626, 12, 21, "Message"],
Cell[71930, 1789, 594, 12, 40, "Message"],
Cell[72527, 1803, 692, 13, 21, "Message"],
Cell[73222, 1818, 628, 12, 21, "Message"],
Cell[73853, 1832, 698, 13, 21, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74588, 1850, 98, 1, 31, "Input"],
Cell[74689, 1853, 137, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74863, 1861, 69, 1, 31, "Input"],
Cell[74935, 1864, 345, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75317, 1878, 135, 2, 31, "Input"],
Cell[75455, 1882, 93, 1, 30, "Output"]
}, Open  ]],
Cell[75563, 1886, 1142, 28, 132, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76742, 1919, 281, 4, 49, "Subtitle"],
Cell[77026, 1925, 48, 0, 31, "Input"],
Cell[77077, 1927, 1784, 41, 172, "Input"],
Cell[CellGroupData[{
Cell[78886, 1972, 388, 9, 31, "Input"],
Cell[79277, 1983, 556, 11, 21, "Message"],
Cell[79836, 1996, 556, 11, 21, "Message"],
Cell[80395, 2009, 556, 11, 21, "Message"],
Cell[80954, 2022, 674, 13, 21, "Message"],
Cell[81631, 2037, 576, 12, 40, "Message"],
Cell[82210, 2051, 608, 12, 21, "Message"],
Cell[82821, 2065, 576, 12, 40, "Message"],
Cell[83400, 2079, 608, 12, 21, "Message"],
Cell[84011, 2093, 68142, 1099, 307, "Output"]
}, Open  ]],
Cell[152168, 3195, 48, 0, 31, "Input"],
Cell[152219, 3197, 1900, 45, 172, "Input"],
Cell[CellGroupData[{
Cell[154144, 3246, 440, 10, 31, "Input"],
Cell[154587, 3258, 71424, 1163, 307, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[226060, 4427, 347, 4, 49, "Subtitle"],
Cell[226410, 4433, 48, 0, 31, "Input"],
Cell[CellGroupData[{
Cell[226483, 4437, 100, 1, 31, "Input"],
Cell[226586, 4440, 171, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226794, 4447, 361, 8, 31, "Input"],
Cell[227158, 4457, 168, 2, 30, "Output"]
}, Open  ]],
Cell[227341, 4462, 1674, 39, 152, "Input"],
Cell[CellGroupData[{
Cell[229040, 4505, 163, 3, 31, "Input"],
Cell[229206, 4510, 183, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229426, 4517, 587, 11, 31, "Input"],
Cell[230016, 4530, 486, 11, 40, "Message"],
Cell[230505, 4543, 488, 11, 40, "Message"],
Cell[230996, 4556, 486, 11, 40, "Message"],
Cell[231485, 4569, 581, 12, 21, "Message"],
Cell[232069, 4583, 520, 11, 21, "Message"],
Cell[232592, 4596, 520, 11, 21, "Message"],
Cell[233115, 4609, 6452, 111, 246, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239604, 4725, 1534, 33, 72, "Input"],
Cell[241141, 4760, 438, 9, 21, "Message"],
Cell[241582, 4771, 438, 9, 21, "Message"],
Cell[242023, 4782, 440, 9, 21, "Message"],
Cell[242466, 4793, 556, 11, 21, "Message"],
Cell[243025, 4806, 456, 10, 40, "Message"],
Cell[243484, 4818, 488, 10, 21, "Message"],
Cell[243975, 4830, 456, 10, 40, "Message"],
Cell[244434, 4842, 490, 10, 21, "Message"],
Cell[244927, 4854, 174, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245138, 4861, 1541, 37, 52, "Input"],
Cell[246682, 4900, 576, 10, 40, "Message"],
Cell[247261, 4912, 609, 10, 21, "Message"],
Cell[247873, 4924, 574, 10, 40, "Message"],
Cell[248450, 4936, 609, 10, 21, "Message"],
Cell[249062, 4948, 576, 10, 40, "Message"],
Cell[249641, 4960, 638, 10, 21, "Message"],
Cell[250282, 4972, 611, 10, 21, "Message"],
Cell[250896, 4984, 642, 10, 21, "Message"],
Cell[251541, 4996, 68013, 1124, 246, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319591, 6125, 836, 15, 31, "Input"],
Cell[320430, 6142, 554, 10, 40, "Message"],
Cell[320987, 6154, 589, 10, 21, "Message"],
Cell[321579, 6166, 554, 10, 40, "Message"],
Cell[322136, 6178, 589, 10, 21, "Message"],
Cell[322728, 6190, 554, 10, 40, "Message"],
Cell[323285, 6202, 614, 10, 21, "Message"],
Cell[323902, 6214, 587, 10, 21, "Message"],
Cell[324492, 6226, 623, 10, 21, "Message"],
Cell[325118, 6238, 175, 6, 71, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
